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Preface 

In order to simplify things and crash some prejudices, I will allow myself to give you some advice before 
reading this book. You should start reading it from the chapter that interests you the most, in any order 
you find suitable. As the time goes by, read the parts you may need at that exact moment. If something 
starts functioning without you knowing exactly how, it shouldn't bother you too much. Anyway, it is 
better that your program works than that it doesn't. Always stick to the practical side of life. Better to 
finish the application on time, make it reliable and, of course, get paid for it as well as possible. 

In other words, it doesn't matter if the exact manner in which the electrons move within the PN junctions 
escapes your knowledge. You are not supposed to know the whole history of electronics in order to 
assure the income for you or your family. Do not expect that you will find everything you need in a single 
book, though. The information are dispersed literally everywhere around us, so it is necessary to collect 
them diligently and sort them out carefully. If you do so, the success is inevitable. 

With all my hopes of having done something worthy investing your time in. 

Yours, 

Nebojsa Matic 



mikroElektronika Recommends 




EasyPIC6 

Development System for PIC microcontrollers 

EasyPIC6 development system is a full-featured development board for the PIC microcontrollers. The system 
has USB 2.0 programmer with mikroICD on-board and many peripherals such as: COG, Port Expander, Keypad 
etc. ... 




mikroBasic PRO for PIC 

Advanced BASIC compiler for PIC 

A beginner? Worry not. Easy-to-learn BASIC syntax, advanced compiler features, built-in routines, source-level 
debugger, and many practical examples we have provided allow quick start in programming PIC. Highly 
intuitive, user-friendly IDE and comprehensive help guarantee success! 




PICFIash with mikrolCD support 

Programmer and debugger for PIC16 and PIC18 family 

PICFIash with mikrolCD support is a programmer and in-circuit debugger for the Microchip's PIC FLASH 
microcontroller family. Beside standard FLASH microcontrollers it can also program the latest PIC MCU's. 




"PIC Microcontrollers" 

Online book that provides basic information about PIC microcontrollers. 

If you haven't done it so far then it's high time to learn what the microcontrollers are and how they operate. 
Numerous illustrations and practical examples along with detailed description of the PIC16F887 will make you 
enjoy your work with the PIC microcontrollers. 



BIGPIC6 



Development System for 64 and 80-pin PIC microcontrollers 

BIGPIC6 supports the 64 and 80-pin PIC microcontrollers (it is delivered with PIC18F8520). The system has 
USB 2.0 programmer with mikroICD on-board and many peripherals. 




"PIC Microcontrollers - Programming in C" 

Learn to program PIC microcontrollers in C programming languange. 

What are microcontrollers, anyway? Electronics built in one single chip capable of controlling a small submarine, 
a crane or an elevator... It's up to you to decide what you want them to do and dump a program containing 
appropriate instructions into the chip. 



To Reader's Knowledge 



The contents published in the book "Programming PIC microcontrollers in BASIC" is subject to copyright 
and it must not be reproduced in any form without an explicit written permission released from the 
editorial of mikroElektronika. The contact address for the authorization regarding contents of this 
book: office@mikroe,com . 

The book was prepared with due care and attention, however the publisher does not accept any 
responsibility neither for the exactness of the information published therein, nor for any consequences of 
its application. 



Chapter 1: The Basics 
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• 1.1 Why BASIC? 

• 1,2 Choosing the right PIC for the task 

• 1,3 A word about code writing 

• 1,4 Writing and compiling your program 

• 1,5 Loading program to microcontroller 

• 1,6 Running the program 

• 1,7 Troubleshooting 



Introduction 

Simplicity and ease which higher programming languages bring in, as well as broad application of 
microcontrollers today, were reasons to incite some companies to adjust and upgrade BASIC 
programming language to better suit needs of microcontroller programming. What did we thereby get? 
First of all, developing applications is faster and easier with all the predefined routines which BASIC 
brings in, whose programming in assembly would take the largest amount of time. This allows 
programmer to concentrate on solving the important tasks without wasting his time on, say, code for 
printing on LCD display. 

To avoid any confusion in the further text, we need to clarify several terms we will be using frequently 
throughout the book: 

Programming language is a set of commands and rules according to which we write the program. 
There are various programming languages such as BASIC, C, Pascal, etc. There is plenty of resources on 
BASIC programming language out there, so we will focus our attention particularly to programming of 
microcontrollers. 

Program consists of a sequence of commands written in programming language that microcontroller 
executes one after another. Chapter 2 deals with the structure of BASIC program in details. 

Compiler is a program run on computer and its task is to translate the original BASIC code into language 
of zeros and ones that can be fed to microcontroller. The process of translation of BASIC program into 
executive HEX code is shown in the figure below. The program written in BASIC and saved as 
file program. pbas is converted by compiler into assembly code (program. asm). The generated assembly 
code is further translated into executive HEX code which can be written to microcontroller memory. 

Programmer is a device which we use to transfer our HEX files from computer to microcontroller 
memory. 






1.1 Why BASIC? 

Originally devised as an easy-to-use tool, BASIC became widespread on home microcomputers in the 
1980s, and remains popular to this day in a handful of heavily evolved dialects. BASIC'S name, coined in 
classic, computer science tradition to produce a nice acronym, stands for Beginner's All-purpose Symbolic 
Instruction Code. 

BASIC is still considered by many PC users to be the easiest programming language to use. Nowadays, 
this reputation is being shifted to the world of microcontrollers. BASIC allows faster and much easier 
development of applications for PIC compared to the Microchip's assembly language MPASM. When 
writing the code for MCUs, programmers frequently deal with the same issues, such as serial 



communication, printing on LCD display, generating PWM signals, etc. For the purpose of facilitating 
programming, BASIC provides a number of built-in and library routines intended for solving these 
problems. 

As far as the execution and program size are in question, MPASM has a small advantage in respect with 
BASIC. This is why there is an option of combining BASIC and assembly code — assembly is commonly 
used for parts of program in which execution time is critical or same commands are executed great 
number of times. Modern microcontrollers, such as PIC, execute instructions in a single cycle. If 
microcontroller clock is 4MHz, then one assembly instruction requires 250ns x 4 = lus. As each BASIC 
command is technically a sequence of assembly instructions, the exact time necessary for its execution 
can be calculated by simply summing up the execution times of constituent assembly instructions. 

1.2 Choosing the right PIC for the task 

Currently, the best choice for application development using BASIC are: the famous PIC16F84, 
PIC16F87x, PIC16F62x, PIC18Fxxx. These controllers have program memory built on FLASH technology 
which provides fast erasing and reprogramming, thus allowing fast debugging. By a single mouse click in 
the programming software, microcontroller program can be instantly erased and then reloaded without 
removing chip from device. Also, program loaded in FLASH memory can be stored after the power is off. 
Beside FLASH memory, microcontrollers of PIC16F87x and PIC16F84 series also contain 64-256 bytes of 
internal EEPROM memory, which can be used for storing program data and other parameters when power 
is off. BASIC features built-in EEPROM_Read and EEPROM_Write instructions that can be used for loading 
and saving data to EEPROM. 

Older PIC microcontroller families (12C67x, 14C000, 16C55x, 16C6xx, 16C7xx, and 16C92x) have 
program memory built on EPROM/ROM technology, so they can either be programmed only once (OTP 
version with ROM memory) or have a glass window (JW version with EPROM memory) which allows 
erasing by few minutes exposure to UV light. OTP versions are usually cheaper and are a natural choice 
for manufacturing large series of products. 

In order to have complete information about specific microcontroller in the application, you should get 
the appropriate Data Sheet or Microchip CD-ROM. 



The program examples worked out throughout the book are mostly to be run on the 
microcontrollers PIC16F84 or PIC6F877, but with minor adjustments, can be run on any 
other PIC microcontroller. 



1.3 A word about code writing 

Technically, any text editor that can save program file as pure ASCII text (without special symbols for 
formatting) can be used for writing your BASIC code. Still, there is no need to do it "by hand" — there 
are specialized environments that take care of the code syntax, free the memory and provide all the 
necessary tools for writing a program. 




mikroBasic IDE includes highly adaptable Code Editor, fashioned to satisfy needs of both novice users and 
experienced programmers. Syntax Highlighting, Code Templates, Code & Parameter Assistant, Auto 
Correct for common typos, and other features provide comfortable environment for writing a program. 

If you had no previous experience with advanced IDEs, you may wonder what Code and Parameter 
Assistants do. These are utilities which facilitate the code writing. For example, if you type first few letter 
of a word in Code Editor and then press CTRL+SPACE, all valid identifiers matching the letters you typed 
will be prompted to you in a floating panel. Now you can keep typing to narrow the choice, or you can 
select one from the list using keyboard arrows and Enter. 

In combination with comprehensive help, integrated tools, extensive libraries, and Code Explorer which 
allows you to easily monitor program items, all the necessary tools are at hand. 

1.4 Writing and compiling your program 

The first step is to write our code. Every source file is saved in a single text file with extension .pbas. 
Here is an example of one simple BASIC program, blink. pbas. 



program LED Blink 




main : 




TRISB = 0 


' Configure pins of PORTB as output 


eloop : 




PORTB = SFF 


' Turn on diodes on PORTB 


Delay_ms (1000) 


' Wait 1 second 


PORTB = 0 


' Turn off diodes on PORTB 


Delay_ms (1000) 


' Wait 1 second 


goto eloop 


' Stay in loop 



end. 



When the program is completed and saved as .pbas file, it can be compiled by clicking on Compile Icon 
(or just hit CTRL+F9) in mikroBasic IDE. The compiling procedure takes place in two consecutive steps: 

1. Compiler will convert .pbas file to assembly code and save it as blink. asm file. 

2. Then, compiler automatically calls assembly, which converts .asm file into executable HEX code 
ready for feeding to microcontroller. 

You cannot actually make the difference between the two steps, as the process is completely automated 
and indivisible. In case of syntax error in program code, program will not be compiled and HEX file will 
not be generated. Errors need to be corrected in the original .pbas file and then the source file may be 
compiled again. The best approach is to write and test small, logical parts of the program to make 
debugging easier. 

1.5 Loading program to microcontroller 

As a result of successful compiling of our previous code, mikroBasic will generate following files: 

• blink. asm - assembly file 

• blink. 1st - program listing 

• blink. mcl - mikro compile library 

• blink. hex - executable file which is written into the programming memory 

MCL file (mikro compile library) is created for each module you have included in the project. In the 
process of compiling, .mcl files will be linked together to output asm, 1st and hex files. If you want to 
distribute your module without disclosing the source code, you can send your compiled library (file 
extension .mcl). User will be able to use your library as if he had the source code. Although the compiler 
is able to determine which routines are implemented in the library, it is a common practice to provide 
routine prototypes in a separate text file. 

HEX file is the one you need to program the microcontroller. Commonly, generated HEX will be standard 
8-bit Merged Intel HEX format, accepted by the vast majority of the programming software. The 
programming device (programmer) with accessory software installed on PC is in charge of writing the 
physical contents of HEX file into the internal memory of a microcontroller. The contents of a 
file blink. hex is given below: 



: 100000000428FF3FFF3FFF3F031383168 601FF30A5 
: 100010008312 8 6000 630F000FF30F100FF30F2 005E 
: 10002000FOOB13281A28F10B1 6281 928F2 0B1 628A2 



: 100O300O132810281A30F000FF30F100F00B2128AF 
: 100O400O2428F10B21281E28 423OF00OF00B2 6282E 
: 100050008 60 10 630FOOOFF30F100FF30F2 00FOOBB7 
: 1000 600032283928F10B35283828F2 0B35283228 68 
: 100070002F281A30F000FF30F100F00B4028432801 
: 10008000F10B40283D284230F000F00B45280428B1 
: 10009000 4 82 8FF3FFF3FFF3FFF3FFF3FFF3FFF3F3E 
: 02400E007A3FF7 
: 00000001FF 



Beside loading a program code into programming memory, programmer also configures the target 
microcontroller, including the type of oscillator, protection of memory against reading, watchdog timer, 
etc. The following figure shows the connection between PC, programming device and the MCU. 




Note that the programming software should be used only for the communication with the programming 
device — it is not suitable for code writing. 



1.6 Running the program 



For proper functioning of microcontroller, it is necessary to provide power supply, oscillator, and 
a reset circuit. The supply can be set with the simple rectifier with Gretz junction and LM7805 circuit as 
shown in the figure below. 
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Oscillator can be 4MHz crystal and either two 22pF capacitors or the ceramic resonator of the same 
frequency (ceramic resonator already contains the mentioned capacitors, but unlike oscillator has three 
termination instead of only two). The rate at which the microcontroller operates, i.e. the speed at which 
the program runs, depends heavily on the oscillator frequency. During the application development, the 
easiest thing to do is to use the internal reset circuit — MCLR pin is connected to +5V through a 10K 
resistor. Below is the scheme of a rectifier with LM7805 circuit which gives the output of stable +5V, and 
the minimal configuration relevant for the operation of a PIC microcontroller. 
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After the supply is brought to the circuit previously shown, PIC microcontroller should look animated, and 
the LED diode should blink once every second. If the signal is completely missing (LED diode does not 
blink), then check if +5V is present at all the relevant pins of PIC. 



1.7 Troubleshooting 



There are several commonly encountered problems of bringing PIC microcontroller to working conditions. 
You need to check a few external components and test whether their values correspond to the desired 



ones, and finally to see whether all the connections are done right. We will present a few notes you may 
find useful. 

• Check whether the MCLR pin is connected to +5V, over reset circuit, or simply with 10K resistor. 
If the pin remains disconnected, its level will be "floating" and it may work sometimes, but it 
usually won't. Chip has power-on-reset circuit, so the appropriate external pull-up resistor on 
MCLR pin should be sufficient. 

• Check whether the connection with the resonator is stable. For most PIC microcontrollers to begin 
with 4MHz resonator is well enough. 

• Check the supply. PIC microcontroller consumes very little energy but the supply needs to be well 
filtrated. At the rectifier output, the current is direct but pulsating, and as such is not suitable for 
the supply of microcontroller. To avoid the pulsating, the electrolytic capacitor of high capacitance 
(e.g. 470 mF) is placed at the rectifier output. 

• If PIC microcontroller supervises devices that pull a lot of energy, they may provoke enough 
malfunctioning on the supply lines to cause the microcontroller start behaving somewhat 
strangely. Even seven-segmented LED display may well induce tension drops (the worst scenario 
is when all the digits are 8, when LED display needs the most power), if the source itself is not 
capable to procure enough current (e.g. 9V battery). 

• Some PIC microcontrollers feature multi-functional I/O pins, for example PIC16C62x family 
(PIC16C620, 621 and 622). Controllers of this family are provided with analog comparators on 
port A. After putting those chips to work, port A is set to analog mode, which brings about the 
unexpected behavior of the pin functions on the port. Upon reset, any PIC with analog inputs will 
show itself in analog mode (if the same pins are used as digital lines they need to be set to digital 
mode). One possible source of troubles is that the fourth pin of port A exhibits singular behavior 
when it is used as output, because the pin has open collectors output instead of usual bipolar 
state. This implies that clearing this pin will nevertheless set it to low level, while setting the pin 
will let it float somewhere in between, instead of setting it to high level. To make the pin behave 
as expected, the pull-up resistor was placed between RA4 and 5V. Its magnitude is between 4.7K 
and 10K, depending on the current necessary for the input. In this way, the pin functions as any 
other input pin (all pins are output after reset). 

More problems are to be expected if you plan to be seriously working with PIC. Sometimes the thing 
seems like it is going to work, but it just won't, regardless of the effort. Just remember that there is 
always more than one way to solve the problem, and that a different approach may bring solution. 



Chapter 2: Elements of BASIC Language 



• Introduction 

• 2,1 Identifiers 

• 2,2 Operators 

• 2,3 Expressions 

• 2,4 Instructions 

• 2.5 Data Types 

• 2,6 Constants 

• 2,7 Variables 

• 2,8 Symbols 

• 2,9 Directives 

• 2,10 Comments 

• 2.11 Labels 

• 2.12 Procedures and Functions 

• 2.13 Modules 



Introduction 



This chapter deals with the elements of BASIC language and the ways to use them efficiently. Learning 
how to program is not complicated, but it requires skill and experience to write code that is efficient, 
legible, and easy to handle. First of all, program is supposed to be comprehensible, so that the 
programmer himself, or somebody else working on the application, could make necessary corrections and 
improvements. We have provided a code sample written in a clear and manifest way to give you an idea 
how programs could be written: 



microcontroller : P16F877A 



' Project: Led blinking 



' This project is designed to work with PIC 16F877A; 



' with minor adjustments , it should work with any other PIC MCU . 



' The code demonstrates blinking of diodes connected to PORTB . 



' Diodes go on and off each second. 



program LED_Blinking 



TRISB = 0 



' Beginning of program 



' Configure pins of PORTB as output 



PORTB = %11111111 ' Turn ON diodes on PORTB 



Delay_ms (1000) 



' Wait for 1 second 



PORTB = %00000000 ' Turn OFF diodes on PORTB 



Delay ms (1000) 



goto main 



end. 



Wait for 1 second 



' Endless loop 



' End of program 



Through clever use of comments, symbols, labels and other elements supported by BASIC, program can 
be rendered considerably clearer and more understandable, offering programmer a great deal of help. 



Also, it is advisable to divide larger programs into separate logical entities (such as routines and modules, 
see below) which can be addressed when needed. This also increases reusability of code. 



Names of routines and labels indicating a program segment should make some obvious sense. For 
example, program segment that swaps values of 2 variables, could be named "Swap", etc. 



2.1 Identifiers 



Identifiers are names used for referencing the stored values, such as variables and constants. Every 
program, module, procedure, and function must be identified (hence the term) by an identifier. 

Valid identifier: 

1. Must begin with a letter of English alphabet or possibly the underscore (_) 

2. Consists of alphanumeric characters and the underscore (_) 

3. May not contain special characters: 

~!@#$%"&*() + -- ={} [] :";'<>?, . / | \ 

4. Can be written in mixed case as BASIC is case insensitive; e.g. First, first, and firST are an 
equivalent identifier. 

Elements ignored by the compiler include spaces, new lines, and tabs. All these elements are collectively 
known as the "white space". White space serves only to make the code more legible - it does not affect 
the actual compiling. 

Several identifiers are reserved in BASIC, meaning that you cannot use them as your own identifiers (e.g. 
words function, byte, if, etc). For more information, please refer to the list of reserved words. Also, 
BASIC has a number of predefined identifiers which are listed in Chapter 4: Instructions. 

2.2 Operators 

BASIC language possesses set of operators which is used to assign values, compare values, and perform 
other operations. The objects manipulated for that purpose are called operands (which themselves can be 
variables, constants, or other elements). 

Operators in BASIC must have at least two operands, with an exception of two unary operators. They 
serve to create expressions and instructions that in effect compose the program. 

There are four types of operators in BASIC: 

1. Arithmetic Operators 

2. Boolean Operators 

3. Logical (Bitwise) Operators 

4. Relation Operators (Comparison Operators) 

Operators are covered in detail in chapter 3. 

2.3 Expressions 

Expression is a construction that returns a value. BASIC syntax restricts you to single line expressions, 
where carriage returncharacter marks the end of the expression. The simplest expressions are variables 
and constants, while more complex can be constructed from simpler ones using operators, function calls, 
indexes, and typecasts. Here is one simple expression: 



A = ] 


3 + C 


' This expression sums up the values of variables 1 


3 and C 






' and stores the result into variable A. 





You need to pay attention that the sum must be within the range of variable A in order to avoid the 
overflow and therefore the evident computational error. If the result of the expression amounts to 428, 
and the variable A is of byte type (having range between 0 and 255), the result accordingly obtained will 
be 172, which is obviously wrong. 

2.4 Instructions 

Each instruction determines an action to be performed. As a rule, instructions are being executed in an 
exact order in which they are written in the program. However, the order of their execution can be 
changed by means of jump, routine call, or an interrupt. 



if Time = 


= 60 then 




goto 


Minute 


' If variable Time equals 60 jump to label Minute 


end if 







Instruction if .. then contains the conducting expression Time = 60 composed of two operands, 
variable Time, constant 60 and the comparison operator ( = ). Generally, instructions may be divided 
into conditional instructions (decision making), loops(repeating blocks), jumps, and specific built-in 
instructions (e.g. for accessing the peripherals of microcontroller). Instruction set is explained in detail 
in Chapter 4: Instructions. 

2.5 Data Types 

Type determines the allowed range of values for variable, and which operations may be performed on it. 
It also determines the amount of memory used for one instance of that variable. 

Simple data types include: 



Type 


Size 


Range of values 


byte 


8-bit 


0.. 255 



char* 


8-bit 


0.. 255 


word 


16-bit 


0 .. 65535 


short 


8-bit 


-128 .. 127 


integer 


16-bit 


-32768 .. 32767 


longint 


32-bit 


-2147483648 .. 2147483647 



* char type can be treated as byte type in every aspect 
Structured types include: 

Array, which represent an indexed collection of elements of the same type, often called the base type. 
Base type can be any simple type. 

String represents a sequence of characters. It is an array that holds characters and the first element of 
string holds the number of characters (max number is 255). 

Sign is important attribute of data types, and affects the way variable is treated by the compiler. 
Unsigned can hold only positive numbers: 



byte 


0 . 


. 255 


word 


0 . 


. 65535 



Signed can hold both positive and negative numbers: 



short -128 . . 127 



integer -32768 .. 32767 

longint -2147483648 . . 214748364 



2.6 Constants 

Constant is data whose value cannot be changed during the runtime. Every constant is declared under 
unique name which must be a valid identifier. It is a good practice to write constant names in uppercase. 

If you frequently use the same fixed value throughout the program, you should declare it a constant (for 
example, maximum number allowed is 1000). This is a good practice since the value can be changed 
simply by modifying the declaration, instead of going trough the entire program and adjusting each 
instance manually. As simple as this: 



const MAX = 1000 



Constants can be declared in decimal, hex, or binary form. Decimal constants are written without any 
prefix. Hexadecimal constants begin with a sign $, while binary begin with %. 



const 


A = 


56 


' 56 decimal 


const 


B = 


$0F 


' 15 hexadecimal 


const 


C = 


%10001100 


' 140 binary 



It is important to understand why constants should be used and how this affects the MCU. Using a 
constant in a program consumes no RAM memory. This is very important due to the limited RAM space 
(PIC16F877 has 368 locations/bytes). 

2.7 Variables 

Variable is data whose value can be changed during the runtime. Each variable is declared under unique 
name which has to be a valid identifier. This name is used for accessing the memory location occupied by 
the variable. Variable can be seen as a container for data and because it is typed, it instructs the 
compiler how to interpret the data it holds. 

In BASIC, variable needs to be declared before it can be used. Specifying a data type for each variable is 
mandatory. Variable is declared like this: 



dim identifier as type 

where identifier is any valid identifier and type can be any given data type. 
For example: 



dim temperature as byte 


' Declare 


variable 


temperature of byte type 


dim voltage as word 


' Declare 


variable 


voltage of word type 



Individual bits of byte variables (including SFR registers such as PORTA, etc) can be accessed by means 
of dot, both on left and right side of the expression. For example: 

Data_Port.3 = 1 ' Set third bit of byte variable Data_Port 

2.8 Symbols 

Symbol makes possible to replace a certain expression with a single identifier alias. Use of symbols can 
increase readability of code. 

BASIC syntax restricts you to single line expressions, allowing shortcuts for constants, simple statements, 
function calls, etc. Scope of symbol identifier is a whole source file in which it is declared. 

For example: 



symbol MaxAllowed = 234 


' Symbol 


as 


alias 


for numeric value 


symbol PORT = PORTC 


' Symbol 


as 


alias 


for Special Function Register 


symbol DELAY IS = Delay ms(lOOO) 


' Symbol 


as 


alias 


for procedure call 


if teA > MaxAllowed then 










teA = teA - 100 











end if 

PORT .1 = 0 
DELAY IS 



Note that using a symbol in a program technically consumes no RAM memory - compiler simply replaces 
each instance of a symbol with the appropriate code from the declaration. 

2.9 Directives 

Directives are words of special significance for BASIC, but unlike other reserved words, appear only in 
contexts where user-defined identifiers cannot occur. You cannot define an identifier that looks exactly 
like a directive. 



Directive 


Meaning 


Absolute 


specify exact location of variable in RAM 


Org 


specify exact location of routine in ROM 



Absolute specifies the starting address in RAM for variable (if variable is multi-byte, higher bytes are 
stored at consecutive locations). 

Directive absolute is appended to the declaration of variable: 



dim rem as byte absolute $22 

' Variable will occupy 1 byte at address $22 



dim dot as word absolute $23 

' Variable will occupy 2 bytes at addresses $23 and $24 



Org specifies the starting address of routine in ROM. For PIC16 family, routine must fit in one page - 
otherwise, compiler will report an error. Directive org is appended to the declaration of routine: 



sub procedure test org $2 00 
' Procedure will start at address $200 



end sub 



2.10 Comments 

Comments are text that is added to the code for purpose of description or clarification, and are 
completely ignored by the compiler. 



' Any text between an apostrophe and the end of the 
' line constitutes a comment. May span one line only. 



It is a good practice to comment your code, so that you or anybody else can later reuse it. On the other 
hand, it is often useful to comment out a troublesome part of the code, so it could be repaired or 
modified later. Comments should give purposeful information on what the program is doing. Comment 
such as Set PinO simply explains the syntax but fails to state the purpose of instruction. Something 
like Turn Relay on might prove to be much more useful. 

Specialized editors feature syntax highlighting - it is easy to distinguish comments from code due to 
different color, and comments are usually italicized. 

2.11 Labels 



Labels represent the most direct way of controlling the program flow. When you mark a certain program 
line with label, you can jump to that line by means of instructions goto and gosub. It is convenient to 



think of labels as bookmarks of sort. Note that the label main must be declared in every BASIC program 
because it marks the beginning of the main module. 

Label name needs to be a valid identifier. You cannot declare two labels with same name within the same 
routine. The scope of label (label visibility) is tied to the routine where it is declared. This ensures 
that goto cannot be used for jumping between routines. 

Goto is an unconditional jump statement. It jumps to the specified label and the program execution 
continues normally from that point on. 

Gosub is a jump statement similar to goto, except it is tied to a matching word return. Upon jumping to 
a specified label, previous address is saved on the stack. Program will continue executing normally from 
the label, until it reaches return statement - this will exit the subroutine and return to the first program 
line following the caller gosub instruction. 

Here is a simple example: 



program test 



main : 



' some instructions . . . 



' simple endless loop using a label 



my_loop : 



' some instructions . 



' now jump back to label loop 



goto my_loop 



end. 



Note: Although it might seem like a good idea to beginners to program by means of jumps and labels, 
you should try not to depend on it. This way of thinking strays from the procedural programming and can 
teach you bad programming habits. It is far better to use procedures and functions where applicable, 
making the code structure more legible and easier to maintain. 

2.12 Procedures and Functions 



Procedures and functions, referred to as routines, are self-contained statement blocks that can be called 
from different locations in a program. Function is a routine that returns a value upon execution. 
Procedure is a routine that does not return a value. 

Once routines have been defined, you can call them any number of times. Procedure is called upon to 
perform a certain task, while function is called to compute a certain value. 

Procedure declaration has the form: 



sub procedure procedureName (parameterList) 

local Declarations 

statements 
end sub 



where procedureName is any valid identifier, statements is a sequence of statements that are executed 
upon the calling the procedure, and (parameterList), and localDeclarations are optional declaration of 
variables and/or constants. 



sub procedure prl procedure 


(dim pari as byte 


dim 


par2 as byte, 




dim byref vpl as 


byte, 


dim byref vp2 as byte) 


dim locS as byte 








pari = locS + pari + par2 








vpl = pari or par2 








vp2 = locS xor pari 








end sub 









pari and par2 are passed to the procedure by the value, but variables marked by keyword byref are 
passed by the address. 

This means that the procedure call 

prl_procedure (tA, tB, tC, tD) 

passes tA and tB by the value: creates pari = tA; and par2 = tB; then manipulates pari and par2 so that 
tA and tB remain unchanged; 

passes tC and tD by the address: whatever changes are made upon vpl and vp2 are also made upon tC 
and tD. 

Function declaration is similar to procedure declaration, except it has a specified return type and a return 
value. Function declaration has the form: 

sub function f unctionName (parameterList) as returnType 

local Declarations 

statements 
end sub 



where functionName is any valid identifier, returnType is any simple type, statements is a sequence of 
statements to be executed upon calling the function, and (parameterList), and localDeclarations are 
optional declaration of variables and/or constants. 

In BASIC, we use the keyword Result to assign return value of a function. For example: 



sub function Calc (dim pari as byte, dim par2 as word) as word 
dim locS as word 



locS = pari * (par2 + 1) 
Result = locS 
end sub 



As functions return values, function calls are technically expressions. For example, if you have defined a 
function called Calc, which collects two integer arguments and returns an integer, then the function 
callcaic(24, 47) is an integer expression. If I and J are integer variables, then i + Caic(j, 8) is also 
an integer expression. 

2.13 Modules 

Large programs can be divided into modules which allow easier maintenance of code. Each module is an 
actual file, which can be compiled separately; compiled modules are linked to create an application. Note 
that each source file must end with keyword endfollowed by a dot. 

Modules allow you to: 

1. Break large code into segments that can be edited separately, 

2. Create libraries that can be used in different programs, 

3. Distribute libraries to other developers without disclosing the source code. 

In mikroBasic IDE, all source code including the main program is stored in .pbas files. Each project 
consists of a single project file, and one or more module files. To build a project, compiler needs either a 
source file or a compiled file for each module. 

Every BASIC application has one main module file and any number of additional module files. All source 
files have same extension (pbas). Main file is identified by keyword program at the beginning, while other 
files have keyword module instead. If you want to include a module, add the keyword include followed 
by a quoted name of the file. 



For example: 



program test_project 
include "math2 .pbas" 
dim tA as word 
dim tB as word 



main : 

tA = sqrt (tb) 
end. 



Keyword include instructs the compiler which file to compile. The example above includes 
module math2 .pbas in the program file. Obviously, routine sqrt used in the example is declared in 

module math2 .pbas. 

If you want to distribute your module without disclosing the source code, you can send your compiled 
library (file extension .mcl). User will be able to use your library as if he had the source code. Although 
the compiler is able to determine which routines are implemented in the library, it is a common practice 
to provide routine prototypes in a separate text file. 

Module files should be organized in the following manner: 



module unit name 


' Module name 


include . . . 


' Include other modules if necessary 


symbol . . . 


' Symbols declaration 


const . . . 


' Constants declaration 



dim . . . 


' Variables declaration 


sub procedure procedure name 


' Procedures declaration 


end sub 




sub function function name 


' Functions declaration 


end sub 




end. 


' End of module 



Note that there is no "body" section in the module - module files serve to declare functions, procedures, 
constants and global variables. 
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Introduction 

In complex expressions, operators with higher precedence are evaluated before the operators with lower 
precedence; operators of equal precedence are evaluated according to their position in the expression 
starting from the left. 



Operator 


Priority 


not 


first (highest) 


*, div, mod, and, «, » 


second 


+, -, or, xor 


third 


=, <>, <, >, <=, >= 


fourth (lowest) 



3. 1 Arithmetic Operators 

Overview of arithmetic operators in BASIC: 



Operator 


Operation 


Operand types 


Result type 


+ 


addition 


byte, short, integer, 
words, longint 


byte, short, integer, 
words, longint 




subtraction 


byte, short, integer, 
words, longint 


byte, short, integer, 
words, longint 











* 


multiplication 


byte, short, integer, 
words 


integer, words, long 


div 


division 


byte, short, integer, 
words 


byte, short, integer, 
words 


mod 


remainder 


byte, short, integer, 
words 


byte, short, integer, 
words 



a div Bis the value of a divided by b rounded down to the nearest integer. The mod operator returns the 
remainder obtained by dividing its operands. In other words, 

XmodY = X - (XdivY) * Y. 

If 0 (zero) is used explicitly as the second operand (i.e. x div 0), compiler will report an error and will 
not generate code. But in case of implicit division by zero : x div y , where y is 0 (zero), result will be 
the maximum value for the appropriate type (for example, if x and y are words, the result will be $ffff). 

If number is converted from less complex to more complex data type, upper bytes are filled with zeros. If 
number is converted from more complex to less complex data type, data is simply truncated (upper bytes 
are lost). 

If number is converted from less complex to more complex data type, upper bytes are filled with ones if 
sign bit equals 1 (number is negative). Upper bytes are filled with zeros if sign bit equals 0 (number is 
positive). If number is converted from more complex to less complex data type, data is simply truncated 
(upper bytes are lost). 

BASIC also has two unary arithmetic operators: 



Operator 


Operation 


Operand types 


Result type 


+ (unary) 


sign identity 


short, integer, 
longint 


short, integer, 
longint 


- (unary) 


sign negation 


short, integer, 
longint 


short, integer, 
longint 



Unary arithmetic operators can be used to change sign of variables: 



a = 3 



b = -a 

' assign value -3 to b 

3.2 Boolean Operators 

Boolean operators are not true operators, because there is no boolean data type defined in BASIC. These 
operators conform to standard Boolean logic. They cannot be used with any data type, but only to build 
complex conditional expression. 



Operator 


Operation 


not 


negation 


and 


conjunction 


or 


disjunction 



For example: 



if (astr > 10) and (astr < 20) then 
PORTB = OxFF 



end if 



3.3 Logical (Bitwise) Operators 

Overview of logical operators in BASIC: 



Operator 


Operation 


Operand types 


Result type 


not 


bitwise negation 


byte, word, short, 
integer, long 


byte, word, short, 
integer, long 


and 


bitwise and 


byte, word, short, 
integer, long 


byte, word, short, 
integer, long 


or 


bitwise or 


byte, word, short, 
integer, long 


byte, word, short, 
integer, long 


xor 


bitwise xor 


byte, word, short, 
integer, long 


byte, word, short, 
integer, long 


« 


bit shift left 


byte, word, short, 
integer, long 


byte, word, short, 
integer, long 


» 


bit shift right 


byte, word, short, 
integer, long 


byte, word, short, 
integer, long 



« : shift left the operand for a number of bit places specified in the right operand (must be positive and 
less then 255). 

» : shift right the operand for a number of bit places specified in the right operand (must be positive 
and less then 255). 

For example, if you need to extract the higher byte, you can do it like this: 



dim temp as word 



main : 

TRISA = word (temp » 8) 
end. 



3.4 Relation Operators (Comparison Operators) 

Relation operators (Comparison operators) are commonly used in conditional and loop statements for 
controlling the program flow. Overview of relation operators in BASIC: 



Operator 


Operation 


Operand types 


Result type 




equality 


All simple types 


True or False 


<> 


inequality 


All simple types 


True or False 


< 


less-than 


All simple types 


True or False 


> 


greater-than 


All simple types 


True or False 


<= 


less-than-or-equal-to 


All simple types 


True or False 


>= 


greater-than-or-equal-to 


All simple types 


True or False 
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Introduction 

Statements define algorithmic actions within a program. Simple statements - like assignments and 
procedure calls - can be combined to form loops, conditional statements, and other structured 
statements. 

Simple statement does not contain any other statements. Simple statements include assignments, and 
calls to procedures and functions. 

Structured statements are constructed from other statements. Use a structured statement when you 
want to execute other statements sequentially, conditionally, or repeatedly. 

4.1 Conditional Statements 

Conditional statements are used for change the flow of the program execution upon meeting a certain 
condition. The BASIC instruction of branching in BASIC language is the IF instruction, with several 
variations that provide the necessary flexibility. 



4.1.1 IF. .THEN Statement - conditional program branching 



Syntax 


if expression then 

statementsl 
[ else 

statements2 ] 
end if 


Description 


Instruction selects one of two possible program paths. Instruction IF. .THEN is the 
fundamental instruction of program branching in PIC BASIC and it can be used in 
several ways to allow flexibility necessary for realization of decision making logic. 

Expression returns a True or False value. If expression is True, then statementsl are 
executed; othQrwisQstatements2 are executed, if the else clause is 
present. Statementsl and statementsl can be statements of any type. 


Example 


The simplest form of the instruction is shown in the figure below. Our example tests 
the button connected to RBO - when the button is pressed, program jumps to the label 



"Add" where value of variable "w" is increased. If the button is not pressed, program 
jumps back to the label "Main". 



if expression then instruction 
end if 



<e*pres3on ^- 

N 



instruction 



exit 



dim j as byte 

Main : 

if PORTB.O = 0 then 
goto Add 

end if 

goto Main 
Add: j = j + 1 
end. 



More complex form of instruction is program branching with the ELSE clause: 



in 



if expression then 

instruction 1 

else 

instruction 2 

end if 



T 



-^expression 



N 



instruction 1 






k> 



exit 





instruction 2 









dim j as byte 

Main : 

if PORTB.O = 0 then 





j = j + 1 




else 




i = i - l 

j j 




endif 




goto Main 




end. 


4.1.2 SELECT.. CASE Statement - Conditional multiple program branching 




select case Selector 


Syntax 


case Value 1 




Statements 1 




case Value 2 




Statements 2 




case Value N 




Statements n 




[ case else 




Statements else ] 




end select 


Description 


, . j _ , _ i-iiii i-i 

Select Case statement is used tor selecting one ot several available branches in the 




program course. It consists of a selector variable as a switch condition, and a list of 




nossible values These values can he constants numerals or expressions 

UUOJlUlv V UlUviJi 1 llvoV^ V ClIUvO VUll L/ V. VV/IIOIUIILO^ 11 Ulllvl CLIO , Ul vAl/lV/JJlwllOi 




Eventually, there can be an else statement which is executed if none of the labels 




corresponds to the value of the selector. 




As soon as the Select Case statement is executed, at most one of the 




siaiemenis siuiemenis i ..siuiewienis n win oe execuieu. ine venue wnicn maicnes 




the Selector determines the statements to be executed. 




_ _ , , , - , ii i • i i 
it none ot the V alue items matches the Selector, then the statements else in the else 




clause (if there is one) are executed. 


Example 


select case W 


case 0 




B = 1 




PORTB = B 




case 1 




A = 1 




PORTA = A 




case else 




PORTB = 0 




end select 




select case Ident 




case testA 




PORTB = 6 




Res = T mod 23 




case teB + teC 




T = 1313 




case else 




T = 0 





end select 


4.1.3 GOTO Statement - Unconditional jump to the specified label 


Syntax 


goto Label 


Description 


Goto statement jumps to the specified label unconditionally, and the program 
execution continues normally from that point on. 

Avoid using GOTO too often, because over-labeled programs tend to be less 
intelligible. 


Example 


program test 
main : 

' some instructions . . . 
goto myLabel 

' some instructions . . . 
myLabel : 

' some instructions . . . 
end. 


4.2 Loops 

Loop statements allow repeating one or more instructions for a number of times. The conducting 
expression determines the number of iterations loop will go through. 

4.2.1 FOR Statement - Repeating of a program segment 


Syntax 


for counter = initialValue to finalValue [step step value] 
statement 1 
statement 2 

statement N 
next counter 


Description 


For statement requires you to specify the number of iterations you want the loop to 
go through. 

Counter is variable; initialValue and finalValue are expressions compatible 
with counter, statement is any statement that does not change the value 
of counter, step_value is value that is added to the counter in each 
iteration. Step_value is optional, and defaults to 1 if not stated otherwise. Be careful 





when using large values for step_value, as overflow may occur. 




Every statement between for and next will be executed once per iteration. 


Example 


Here is a simple example of a FOR loop used for emitting hex code on PORTB for 7- 
segment display with common cathode. Nine digits should be printed with one 
second delay. 

for i = 1 to 9 

portb = i 
delay_ms (1000) 
next i 


4.2.2 DO.. LOOP Statement - Loop until condition is fulfilled 


Syntax 


do 

statement 1 

statement N 
loop until expression 


Description 


Expression returns a True or False value. The do . . loop statement 
executes statement 1; statement TVcontinually, checking the expression after each 
iteration. Eventually, when expression returns True, the do. . loopstatement 
terminates. 

The sequence is executed at least once because the check takes place in the end. 


Example 


1 = 0 
do 

1=1+1 ' execute these 2 statements 
PORTB = I ' until i equals 10 (ten) 
loop until I = 10 




4.2.3 WHILE Statement - Loop while condition is fulfilled 


Syntax 


while expression 
statement 0 
statement 1 

statement N 
wend 


Description 


Expression is tested first. If it returns True, all the following statements enclosed 
by while and wend will be executed (or only one statement, alternatively). It will keep 
on executing statements until the expressionveturns False. 

Eventually, as expression returns False, while will be terminated without 
executing statements. 

while is similar to do. .loop, except the check is performed at the beginning of the 





loop. If expression returns False upon first test, statements will not be executed. 


Example 


while I < 90 

1 = 1 + 1 




wend 




while I > 0 




1 = 1 div 3 




PORTA = I 




wend 



4.3 ASM Statement - Embeds assembly instruction block 



Syntax 



asm 

statementList 
end asm 



Description Sometimes it can be useful to write part of the program in assembly. ASM statement 
can be used to embed PIC assembly instructions into BASIC code. 

Note that you cannot use numerals as absolute addresses for SFR or GPR variables in 
assembly instructions. You may use symbolic names instead (listing will display 
these names as well as addresses). 

Be careful when embedding assembly code - BASIC will not check if assembly 
instruction changed memory locations already used by BASIC variables. 

Example asm 

movlw 67 
movwf TMRO 
end asm 
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Introduction 

BASIC was designed with focus on simplicity of use. Great number of built-in and library routines are 
included to help you develop your applications quickly and easily. 

5.1 Built-in Routines 

BASIC incorporates a set of built-in functions and procedures. They are provided to make writing 
programs faster and easier. You can call built-in functions and procedures in any part of the program. 



5.1 .1 SetBit - Sets the specified bit 



Prototype 


sub procedure SetBit (dim byref Reg as byte, dim Bit as byte) 


Description 


Sets <Bit> of register <Reg>. Any SFR (Special Function Register) or variable of 
byte type can pass as valid variable parameter, but constants should be in range 
[0..7]. 


Example 


SetBit (PORTB, 2) ' set bit RB2 



5.1 .2 ClearBit - Clears the specified bit 



Prototype 


sub procedure ClearBit (dim byref Reg as byte, dim Bit as byte) 


Description 


Clears <Bit> of register <Reg>. Any SFR (Special Function Register) or variable of 
bvte tvne can nass as valid variable narameter but constants should be in ranee 
[0..7]. 


Example 


ClearBit (PORTC, 7) ' clear bit RC7 


5.1.3 TestBit - Tests the specified bit 


Prototype 


sub function TestBit (dim byref Reg as byte, dim Bit as byte) as byte 


Description 


Tests <Bit> of register <Reg>. If set, returns 1, otherwise 0. Any SFR (Special 
Function Register) or variable of byte type can pass as valid variable parameter, but 
constants should be in range [0..7]. 


Example 


TestBit (PORTA, 2) 

' returns 1 if PORTA bit RA2 is 1 , returns 0 otherwise 


5.1 .4 Lo - Extract one byte from the specified parameter 


Prototype 


sub function Lo (dim Par as byte . . longint) as byte 


Description 


Returns byte 0 of <Par>, assuming that word/integer comprises bytes 1 and 0, and 
longint comprises bytes 3, 2, 1, and 0. 


Example 


Lo (A) ' returns lower byte of variable A 



5.1 .5 Hi - Extract one byte from the specified parameter 



Prototvne 


sub function Hi (dim arg as word. . longint) as byte 


Descrintion 


Returns bvte I of <Par> assuming that word/inteser comnrises bvtes 1 and 0 and 
longint comprises bytes 3, 2, 1, and 0. 


Example 


Hi (Aa) ' returns hi byte of variable Aa 


5.1 .6 Higher - Extract one byte from the specified parameter 


Prototype 


sub function Higher (dim Par as longint) as byte 


Description 


Returns byte 2 of <Par>, assuming that longint comprises bytes 3, 2, 1, and 0. 


Example 


Higher (Aaaa) ' returns byte next to the highest byte of variable Aaaa 


5.1 .7 Highest - Extract one byte from the specified parameter 


Prototype 


sub function Highest (dim arg as longint) as byte 


Description 


Returns byte 3 of <Par>, assuming that longint comprises bytes 3, 2, 1, and 0. 


Example 


Highest (Aaaa) ' returns the highest byte of variable Aaaa 



5.1.8 Delay_us - Software delay in us 



Prototype 


sub procedure Delay us (const Count as word) 


Description 


Routine creates a software delay in duration of <Count> microseconds. 


Example 


Delay us (100) ' creates software delay equal to 100 us 


5.1 .9 Delay_ms - Software delay In ms 


Prototype 


sub procedure Delay ms (const Count as word) 


Description 


Routine creates a software delay in duration of <Count> milliseconds. 


Example 


Delay ms(lOOO) ' creates software delay equal to Is 


5.1.10 Inc - Increases variable by 1 


Prototype 


sub procedure Inc (byref Par as byte . . longint) 


Description 


Routine increases <Par> by one. 


Example 


Inc (Aaaa) ' increments variable Aaaa by 1 



5.1 .1 1 Dec - Decreases variable by 1 



Description Routine decreases <Par> by one. 



Example 



Dec (Aaaa) 



decrements variable Aaaa by 1 



5.1.12 StrLen - Returns length of string 



Prototype 



sub function StrLen (dim Text as string) as byte 



Description Routine returns length of string <Text> as byte. 



Example 



StrLen (Text) 



returns string length as byte 



5.2 Library Routines 

A comprehensive collection of functions and procedures is provided for simplifying the initialization and 
use of PIC MCU and its hardware modules. Routines currently includes libraries for ADC, I2C, USART, SPI, 
PWM, driver for LCD, drivers for internal and external CAN modules, flexible 485 protocol, numeric 
formatting routines... 

5.2.1 Numeric Formatting Routines 



Numeric formatting routines convert byte, short, word, and integer to string. You can get text 
representation of numerical value by passing it to one of the routines listed below. 

5.2.1.1 ByteToStr - Converts byte to string 



Prototype su ^ P roce( iure ByteToStr (dim input as byte, dim byref txt as char [ 



6] 







Description 


Parameter <input> represents numerical value oi byte type that should be converted 
to string; parameter<£xt> is passed by the address and contains the result of 
conversion. 

Parameter <txt> has to be of sufficient size to fit the converted string. 


Example 


ByteToStr (Counter, Message) 
' Copies value of byte Counter into string Message 


5.2.1.2 WordToStr - Converts word to string 


Prototype 


sub procedure WordToStr (dim input as word, dim byref txt as char [6]) 


Description 


Parameter <input> represents numerical value of word type that should be converted 
to string; parameter<£xt> is passed by the address and contains the result of 
conversion. 

Parameter <txt> has to be of sufficient size to fit the converted string. 


Example 


WordToStr (Counter , Message) 

' Copies value of word Counter into string Message 


5.2.1.3 ShortToStr - Converts short to string 


Prototype 


sub procedure ShortToStr (dim input as short, dim byref txt as char [6]) 


Description 


Parameter <input> represents numerical value of short type that should be converted 
to string; parameter<Zx^> is passed by the address and contains the result of 
conversion. 

Parameter <txt> has to be of sufficient size to fit the converted string. 


Example 


ShortToStr (Counter, Message) 
' Copies value of short Counter into string Message 


5.2.1.4 IntToStr - Converts integer to string 


Prototype 


sub procedure IntToStr (dim input as integer, dim byref txt as char [6]) 







Description 


Parameter <input> represents numerical value oi integer type that should be 
converted to string; parameter <txt> is passed by the address and contains the result 
of conversion. 

Parameter <txt> has to be of sufficient size to fit the converted string. 


Example 


IntToStr (Counter , Message) 
' Copies value of integer Counter into string Message 


5.2.1.5 Bcd2Dec - Converts 8-bit BCD value to decimal 


Prototype 


sub procedure Bcd2Dec (dim bed num as byte) as byte 


Description 


Function converts 8-bit BCD numeral to its decimal equivalent and returns the result 
as byte. 


Example 


dim a as byte 
dim b as byte 

a = 140 

b = Bcd2Dec(a) ' b equals 224 now 


5.2.1.6 Bcd2Dec - Converts 8-bit decimal to BCD 


Prototype 


sub procedure Dec2Bcd(dim dec num as byte) as byte 


Description 


Function converts 8-bit decimal numeral to BCD and returns the result as byte. 


Example 


dim a as byte 
dim b as byte 

a = 224 

b = Dec2Bcd(a) ' b equals 140 now 


5.2.1.7 Bcd2Dec - Converts 16-bit BCD value to decimal 


Prototype 


sub procedure Bcd2Decl6 (dim bed num as word) as word 







Description 


Function converts 16-bit BCD numeral to its decimal equivalent and returns the 
result as byte. 


Example 


dim a as word 
dim b as word 

a = 1234 

b = Bcd2Decl6(a) ' b equals 4660 now 


5.2.1.8 Bcd2Dec - Converts 16-bit BCD value to decimal 


Prototype 


sub procedure Dec2Bcdl6 (dim dec num as word) as word 


Description 


Function converts 1 6-bit decimal numeral to BCD and returns the result as word. 


Example 


dim a as word 
dim b as word 

a = 4660 

b = Dec2Bcdl6(a) ' b equals 1234 now 


5.2.2 ADC Library 

ADC (Analog to Digital Converter) module is available with a number of PIC MCU models. Library function 
ADC_Read is included to provide you comfortable work with the module. The function is currently 
unsupported by the following PIC MCU models: P18F2331, P18F2431, P18F4331, and P18F4431. 

5.2.2.1 ADC_Read - Get the results of AD conversion 


Prototype 


sub function ADC Read (dim Channel as byte) as word 


Description 


Routine initializes ADC module to work with RC clock. Clock determines the time 
period necessary for performing AD conversion (min 12TAD). RC sources typically 
have Tad 4uS. Parameter <Channel> determines which channel will be sampled. 
Refer to the device data sheet for information on device channels. 



Example 


res = ADC Read (2) 


' reads channel 2 and stores value in variable res 
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5.2.3 CAN Library 

The Controller Area Network module (CAN) is serial interface, used for communicating with other 
peripherals or microcontrollers. CAN module is available with a number of PIC MCU models. BASIC 
includes a set of library routines to provide you comfortable work with the module. More details about 
CAN can be found in appropriate literature and on mikroElektronika Web site. 



5.2.3.1 CANSetOperationMode - Sets CAN to requested mode 



Prototype 


sub procedure CANSetOperationMode (dim Mode as byte, dim Wait as byte) 


Description 


The procedure copies <Mode> to CANSTAT and sets CAN to requested mode. 

Operation <Mode> code can take any of predefined constant values. 
<Wait> takes values TRUE(255) or FALSE(O) 

If Wait is true, this is a blocking call. It won't return until requested mode is set. If 
Wait is false, this is a non-blocking call. It does not verify if CAN module is 
switched to requested mode or not. Caller must use CANGetOperationModeQ to 





verify correct operation mode before performing mode specific operation. 


Example 


CANSetOperationMode (CAN MODE LISTEN, TRUE) ' Sets CAN to Listen mode 


5.2.3.2 CANGetOperationMode - Returns the current operation mode of CAN 


Prototype 


sub function CANGetOperationMode as byte 


Description 


The function returns the current operation mode of CAN. 


Example 


CANGetOperationMode 


5.2.3.3 CANInitialize - Initializes CAN 


Prototype 


sub procedure CANInitialize (dim SJW as byte, dim BRP as byte, dim PHSEG1 as 
byte, dim PHSEG2 as byte, dim PROPSEG as byte, dim CAN CONFIG FLAGS as byte) 


Description 


The procedure initializes CAN module. CAN must be in Configuration mode or else 
these values will be ignored. 

Parameters: 

SJW value as defined in 18XXX8 datasheet (must be between 1 thru 4) 
BRP value as defined in 18XXX8 datasheet (must be between 1 thru 64) 
PHSEG1 value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
PHSEG2 value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
PROPSEG value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
CAN CONFIG FLAGS value is formed from constants (see below) 

Output: 

CAN bit rate is set. All masks registers are set to '0' to allow all messages. 
Filter registers are set according to flag value: 

If (CAN CONFIG FLAGS and CAN CONFIG VALID XTD MSG) <> 0 

Set all filters to XTD MSG 
Else if (config and CONFIG VALID STD MSG) <> 0 

Set all filters to STD MSG 

Else 

Set half of the filters to STD, and the rest to XTD MSG 

Side Effects: 





All pending transmissions are aborted. 


Example 


dim aa as byte 






aa = CAN CONFIG SAMPLE THRICE and 


' form value to be used 




CAN CONFIG PHSEG2 PRG ON and 


' with CANInitialize 




CAN CONFIG STD MSG and 






CAN CONFIG DBL BUFFER ON and 






CAN CONFIG VALID XTD MSG and 






CAN CONFIG LINE FILTER OFF 






CANInitialize (1, 1, 3, 3, 1, aa) 





5.2.3.4 CANSetBaudRate - Sets CAN Baud Rate 



Prototype 


sud procedure LAiNbetBauuKate (dim sjw as oyte, dim kkf as oyce, dim phsegi as 
byte, dim PHSEG2 as byte, dim PROPSEG as byte, dim CAN CONFIG FLAGS as byte) 


Description 


The procedure sets CAN Baud Rate. CAN must be in Configuration mode or else 
these values will be ignored. 

Parameters: 

SJW value as defined in 18XXX8 datasheet (must be between 1 thru 4) 
BRP value as defined in 18XXX8 datasheet (must be between 1 thru 64) 
PHSEG1 value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
PHSEG2 value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
PROPSEG value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
CAN CONFIG FLAGS - Value formed from constants (see section below) 

Output: 

Given values are bit adjusted to fit in 18XXX8 and BRGCONx registers and copied. 
CAN bit rate is set as per given values. 


Example 


CANSetBaudRate (1, 1, 3, 3, 1, aa) 


5.2.3.5 CANSetMask - Sets the CAN message mask 


Prototype 


sub procedure CANSetMask (CAN MASK as byte, val as 
longint, dim CAN CONFIG FLAGS as byte) 


Description 


The procedure sets the CAN message mask. CAN must be in Configuration mode. If 
not, all values will be ignored. 

Parameters: 

CAN MASK - One of predefined constant value 
val - Actual mask register value 





CAN CONFIG FLAGS - Type of message to filter, either 
CANCONFIGXTDMSG or CANCONFIGSTDMSG 

Output: 

Given value is bit adjusted to appropriate buffer mask registers. 


Example 


CANSetMask (CAN MASK B2, -1, CAN CONFIG XTD MSG) 


5.2.3.6 CANSetFilter - Sets the CAN message filter 


Prototype 


sub procedure CANSetFilter (dim CAN FILTER as byte, dim val as 
longint, dim CAN CONFIG FLAGS as byte) 


Description 


The procedure sets the CAN message filter. CAN must be in Configuration mode. If 
not, all values will be ignored. 

Parameters: 

CAN FILTER - One of predefined constant values 
val - Actual filter register value. 
CAN CONFIG FLAGS - Type of message to filter, either 
CAN CONFIG XTD MSG or CAN CONFIG STD MSG 

Output: 

Given value is bit adjusted to appropriate buffer filter registers 


Example 


CANSetFilter (CAN FILTER Bl Fl, 3, CAN CONFIG XTD MSG) 


5.2.3.7 CANWrite - Queues message for transmission 


Prototype 


sub function CANWrite (dim id as longint, dim byref Data : as 

byte [8], dim DataLen as byte, dimCAN TX MSG FLAGS as byte) as byte 


Description 


If at least one empty transmit buffer is found, given message is queued for the 
transmission. If none found, FALSE value is returned. CAN must be in Normal 
mode. 

Parameters: 

id - CAN message identifier. Only 11 or 29 bits may be used depending on message 
type (standard or extended) 
Data - array of bytes up to 8 bytes in length 
DataLen - Data length from 1 thru 8 
CAN TX MSG FLAGS - Value formed from constants (see section below) 



Example 


aal = CAN TX PRIORITY 0 and 


' form 


value to be used 


CAN TX XTD FRAME and 


' with 


CANWrite 




CAN TX NO RTR FRAME 








CANWrite(-l, data, 1, aal) 







5.2.3.8 CAN Read - Extracts and reads the message 



PfOtotVDe su k f unct i° n CANRead (dim byref id as longint, dim byref Data as byte [ 

byref DataLen as byte, dim byref CAN_RX_MSG_FLAGS as byte) as byte 



, dim 



Description 



If at least one full receive buffer is found, the function extracts and returns the 
message as byte. If none found, FALSE value is returned. CAN must be in mode in 
which receiving is possible. 

Parameters: 

id - CAN message identifier 

Data - array of bytes up to 8 bytes in length 
DataLen - Data length from 1 thru 8 

CAN TX MSG FLAGS - Value formed from constants (see below) 



Example 



res = CANRead (id, Data, 7, 0) 



5.2.3.9 CAN Library Constants 

You need to be familiar with constants that are provided for use with the CAN module. All of the following 
constants are predefined in CAN library. 

CAN_OP_MODE 

These constant values define CAN module operation mode. CANSetOperationMode() routine requires this 
code. These values must be used by itself, i.e. they cannot be ANDed to form multiple values. 



const CAN_MODE_BITS = $E0 
const CAN_MODE_NORMAL = 0 
const CAN_MODE_SLEEP = $2 0 
const CAN_MODE_LOOP = $4 0 
const CAN MODE LISTEN = $60 



const CAN MODE CONFIG 



Use these to access opmode bits 



$80 



CAIM_TX_MSG_FLAGS 

These constant values define flags related to transmission of a CAN message. There could be more than 
one this flag ANDed together to form multiple flags. 

const CAN TX PRIORITY BITS = $03 



XXXXXXOO 



= $ FD 
= $ FE 
= $ FF 



XXXXXX01 
XXXXXX1 0 
XXXXXX1 1 



const CAN_TX_FRAME_BIT = $08 
const CAN_TX_STD_FRAME = $ FF 
const CAN TX XTD FRAME = $F7 



XXXXX1XX 

xxxxxoxx 



const CAN_TX_RTR_BIT = $4 0 
const CAN_TX_NO_RTR_FRAME = $FF 
const CAN TX RTR FRAME = $BF 



X1XXXXXX 
XOXXXXXX 



CAN_RX_MSG_FLAGS 



These constant values define flags related to reception of a CAN message. There could be more than one 
this flag ANDed together to form multiple flags. If a particular bit is set; corresponding meaning is TRUE 
or else it will be FALSE. 



e.g. 



if (MsgFlag and CAN_RX_OVERFLOW) <> 0 then 



Receiver overflow has occurred. 
We have lost our previous message . 



const 


CAN 


RX 


FILTER BITS = $07 


' Use 


these to access filter bits 


const 


CAN 


RX 


FILTER 1 = $00 








const 


CAN 


RX 


FILTER 2 = $01 








const 


CAN 


RX 


FILTER 3 = $02 








const 


CAN 


RX 


FILTER 4 = $03 








const 


CAN 


RX 


FILTER 5 = $04 








const 


CAN 


RX 


FILTER 6 = $05 








const 


CAN 


RX 


OVERFLOW = $0 8 


' Set 


if 


Overflowed else cleared 


const 


CAN 


RX 


INVALID MSG = $10 


' Set 


if 


invalid else cleared 


const 


CAN 


RX 


XTD FRAME = $20 


' Set 


if 


XTD message else cleared 


const 


CAN 


RX 


RTR FRAME = $4 0 


' Set 


if 


RTR message else cleared 


const 


CAN 


RX 


DBL BUFFERED = $80 


' Set 


if 


this message was hardware 



CAN_MASK 

These constant values define mask codes. Routine CANSetMaskQrequires this code as one of its 
arguments. These enumerations must be used by itself i.e. it cannot be ANDed to form multiple values. 

const CAN_MASK_B1 = 0 
const CAN MASK B2 = 1 



CAN_FILTER 

These constant values define filter codes. Routine CANSetFilter() requires this code as one of its 
arguments. These enumerations must be used by itself, i.e. it cannot be ANDed to form multiple values. 



const CAN_FILTER_B1_F1 = 0 

const CAN_FILTER_B1_F2 = 1 

const CAN_FILTER_B2_F1 = 2 

const CAN_FILTER_B2_F2 = 3 

const CAN_FILTER_B2_F3 = 4 

const CAN FILTER B2 F4 = 5 



CAN_CONFIG_FLAGS 

These constant values define flags related to configuring CAN module. Routines CANInitialize() and 
CANSetBaudRateQ use these codes. One or more these values may be ANDed to form multiple flags 



const 


CAN 


CONFIG 


DEFAULT = $ FF 




' 11111111 


const 


CAN 


CONFIG 


PHSEG2 PRG BIT = 


$01 




const 


CAN 


CONFIG 


PHSEG2 PRG ON = 


$ FF 


' XXXXXXX1 


const 


CAN 


CONFIG 


PHSEG2 PRG OFF = 


$FE 


' xxxxxxxo 


const 


CAN 


CONFIG 


LINE FILTER BIT 


= $02 




const 


CAN 


CONFIG 


LINE FILTER ON = 


$FF 


' xxxxxxix 


const 


CAN 


CONFIG 


LINE FILTER OFF 


= $ FD 


' xxxxxxox 


const 


CAN 


CONFIG 


SAMPLE BIT = $04 






const 


CAN 


CONFIG 


SAMPLE ONCE = $ FF 


' XXXXX1XX 


const 


CAN 


CONFIG 


SAMPLE THRICE = 


$ FB 


' xxxxxoxx 


const 


CAN 


CONFIG 


MSG TYPE BIT = $08 




const 


CAN 


CONFIG 


STD MSG = $ FF 




' XXXX1XXX 


const 


CAN 


CONFIG 


XTD MSG = $F7 




' xxxxoxxx 


const 


CAN 


CONFIG 


DBL BUFFER BIT = 


$10 




const 


CAN 


CONFIG 


DBL BUFFER ON = 


$ FF 


' XXX1XXXX 


const 


CAN 


CONFIG 


DBL BUFFER OFF = 


$EF 


' XXXOXXXX 


const 


CAN 


CONFIG 


MSG BITS = $60 






const 


CAN 


CONFIG 


ALL MSG = $ FF 




' X11XXXXX 


const 


CAN 


CONFIG 


VALID XTD MSG = 


$ DF 


' X10XXXXX 


const 


CAN 


CONFIG 


VALID STD MSG = 


$BF 


' X01XXXXX 


const 


CAN 


CONFIG 


ALL VALID MSG = 


$9F 


' xooxxxxx 



CAN TX of MCU 
*- CAN RX.af MCU 




Shielded pair 
no longer than 30Dm 



Example of interfacing CAN transceiver with MCU and bus 



5.2.4 CANSPI Library 

The Controller Area Network module (CAN) is serial interface, used for communicating with other 
peripherals or microcontrollers. CAN module is available with a number of PIC MCU models. MCP2515 or 
MCP2510 are modules that enable any chip with SPI interface to communicate over CAN bus. BASIC 
includes a set of library routines to provide you comfortable work with the module. More details about 
CAN can be found in appropriate literature and on mikroElektronika Web site. 

Note: CANSPI routines are supported by any PIC MCU model that has SPI interface on PORTC. Also, CS 
pin of MCP2510 or MCP2515 must be connected to RCO pin. 



5.2.4.1 CANSPISetOperationMode - Sets CAN to requested mode 



Prototype 


sub procedure CANSPISetOperationMode (dim mode as byte, dim Wait as byte) 


Description 


The procedure copies <mode> to CANSTAT and sets CAN to requested mode. 

Operation <mode> code can take any of predefined constant values. 
<Wait> takes values TRUE(255) or FALSE(O) 

If Wait is true, this is a blocking call. It won't return until requested mode is set. If 
Wait is false, this is a non-blocking call. It does not verify if CAN module is 
switched to requested mode or not. Caller must use CANGetOperationMode() to 
verify correct operation mode before performing mode specific operation. 



Example 


CANSPISetOperationMode (CAN MODE LISTEN, TRUE) ' Sets CAN to Listen mode 


5.2.4.2 CANSPIGetOperationMode - Returns the current operation mode of CAN 


Prototype 


sub function CANSPIGetOperationMode as byte 


Description 


The function returns the current operation mode of CAN. 


Example 


CANGetOperationMode 


5.2.4.3 CANSPIInitialize - Initializes CANSPI 


Prototype 


sub procedure CANSPIInitialize (dim SJW as byte, dim BRP as 
byte, dim PHSEG1 as byte, dim PHSEG2 as byte, dim PROPSEG as 
byte, dim CAN CONFIG FLAGS as byte) 


Description 


The procedure initializes CAN module. CAN must be in Configuration mode or else 
these values will be ignored. 

Parameters: 

SJW value as defined in 18XXX8 datasheet (must be between 1 thru 4) 
BRP value as defined in 18XXX8 datasheet (must be between 1 thru 64) 
PHSEG1 value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
PHSEG2 value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
PROPSEG value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
CAN CONFIG FLAGS value is formed from constants (see below) 

Output: 

CAN bit rate is set. All masks registers are set to '0' to allow all messages. 
Filter registers are set according to flag value: 

If (CAN CONFIG FLAGS and CAN CONFIG VALID XTD MSG) <> 0 

Set all filters to XTD MSG 
Else if (config and CONFIG VALID STD MSG) <> 0 

Set all filters to STD MSG 

Else 

Set half of the filters to STD, and the rest to XTD MSG 

Side Effects: 

All pending transmissions are aborted. 


Example 


dim aa as byte 

aa = CAN CONFIG SAMPLE THRICE and ' form value to be used 



CAN_C0NFIG_PHSEG2_PRG_0N and ' with CANSPIInitialize 

CAN_CONFIG_STD_MSG and 
CAN_CONFIG_DBL_BUFFER_ON and 
CAN_CONFIG_VALID_XTD_MSG and 
CAN_CONFIG_LINE_FILTER_OFF 

CANInitialize (1, 1, 3, 3, 1, aa) 



5.2.4.4 CANSPISetBaudRate - Sets CAN Baud Rate 



Prototype 


sub procedure CANSPISetBaudRate (dim SJW as byte, dim BRP as 
byte, dim PHSEG1 as byte, dim PHSEG2 as byte, dim PROPSEG as 
byte, dim CAN CONFIG FLAGS as byte) 


Description 


The procedure sets CAN Baud Rate. CAN must be in Configuration mode or else 
these values will be ignored. 

Parameters: 

SJW value as defined in 18XXX8 datasheet (must be between 1 thru 4) 
BRP value as defined in 18XXX8 datasheet (must be between 1 thru 64) 
PHSEG1 value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
PHSEG2 value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
PROPSEG value as defined in 18XXX8 datasheet (must be between 1 thru 8) 
CAN CONFIG FLAGS - Value formed from constants (see section below) 

Output: 

Given values are bit adjusted to fit in 1 8XXX8 and BRGCONx registers and copied. 
CAN bit rate is set as per given values. 


Example 


CANSPISetBaudRate (1, 1, 3, 3, 1, aa) 


5.2.4.5 CANSPISetMask - Sets the CAN message mask 


Prototype 


sub procedure CANSPISetMask (CAN MASK as byte, val as 
longint, dim CAN CONFIG FLAGS as byte) 


Description 


The procedure sets the CAN message mask. CAN must be in Configuration mode. If 
not, all values will be ignored. 

Parameters: 

CAN MASK - One of predefined constant value 
val - Actual mask register value 
CAN CONFIG FLAGS - Type of message to filter, either 
CAN CONFIG XTD MSG or CAN CONFIG STD MSG 

Output: 





Given value is bit adjusted to appropriate buffer mask registers. 


Example 


CANSPISetMask (CAN MASK B2, -1, CAN CONFIG XTD MSG) 


5.2.4.6 CANSPISetFilter - Sets the CAN message filter 


Prototype 


sub procedure CANSPISetFilter (dim CAN FILTER as byte, dim val as 
longint, dim CAN CONFIG FLAGS as byte) 


Description 


The procedure sets the CAN message filter. CAN must be in Configuration mode. If 
not, all values will be ignored. 

Parameters: 

CAN FILTER - One of predefined constant values 
val - Actual filter register value. 
CAN CONFIG FLAGS - Type of message to filter, either 
CAN CONFIG XTD MSG or CAN CONFIG STD MSG 

Output: 

Given value is bit adjusted to appropriate buffer filter registers 


Example 


CANSPISetFilter (CAN FILTER Bl Fl, 3, CAN CONFIG XTD MSG) 


5.2.4.7 CANSPIWrite - Queues message for transmission 


Prototype 


sub function CANSPIWrite (dim id as longint, dim byref Data : as 
byte [8], dim DataLen as byte, dimCAN TX MSG FLAGS as byte) as byte 


Description 


If at least one empty transmit buffer is found, given message is queued for the 
transmission. If none found, FALSE value is returned. CAN must be in Normal 
mode. 

Parameters: 

id - CAN message identifier. Only 11 or 29 bits may be used depending on message 
type (standard or extended) 
Data - array of as bytes up to 8 as bytes in length 
DataLen - Data length from 1 thru 8 
CAN TX MSG FLAGS - Value formed from constants (see section below) 


Example 


aal = CAN TX PRIORITY 0 and ' form value to be used 
CAN TX XTD FRAME and ' with CANSPIWrite 
CAN TX NO RTR FRAME 

CANSPIWrite (-1, data, 1, aal) 



5.2.4.8 CANSPIRead - Extracts and reads the message 



Prototype 


sub function CANSPIRead (dim byref id as longint, dim byref Data as 

byte [8], dim byref DataLen as byte, dim byref CAN RX MSG FLAGS as byte) as 

byte 


Description 


If at least one full receive buffer is found, the function extracts and returns the 
message as byte. If none found, FALSE value is returned. CAN must be in mode in 
which receiving is possible. 

Parameters: 

id - CAN message identifier 
Data - array of bytes up to 8 bytes in length 
DataLen - Data length from 1 thru 8 
CAN TX MSG FLAGS - Value formed from constants (see below) 


Example 


res = CANSPIRead (id, Data, 7, 0) 



5.2.4.9 CANSPI Library Constants 



You need to be familiar with constants that are provided for use with the CAN module. All of the following 
constants are predefined in CANSPI library. 



CAN_OP_MODE 



These constant values define CAN module operation mode. CANSetOperationMode() routine requires this 
code. These values must be used by itself, i.e. they cannot be ANDed to form multiple values. 



const CAN_MODE_BITS = $E0 ' Use these to access opmode bits 

const CAN_MODE_NORMAL = 0 

const CAN_MODE_SLEEP = $2 0 

const CAN_MODE_LOOP = $4 0 

const CAN_MODE_LISTEN = $60 

const CAN MODE CONFIG = $80 



CAN_TX_MSG_FLAGS 



These constant values define flags related to transmission of a CAN message. There could be more than 
one this flag ANDed together to form multiple flags. 



const CAN_TX_PRIORITY_BITS 
const CAN_TX_PRIORITY_0 = 
const CAN_TX_PRIORITY_l = 
const CAN_TX_PRIORITY_2 = 
const CAN TX PRIORITY 3 = 



= $03 

$FC ' XXXXXXOO 

$ FD ' XXXXXX01 

$FE ' XXXXXX1 0 

$ FF ' XXXXXX11 



const CAN TX FRAME BIT = $08 



XXXXX1XX 

xxxxxoxx 



const CAN_TX_RTR_BIT = $4 0 

const CAN_TX_NO_RTR_FRAME = $FF ' X1XXXXXX 

const CAN TX RTR FRAME = $BF ' XOXXXXXX 



CAN_RX_MSG_FLAGS 



These constant values define flags related to reception of a CAN message. There could be more than one 
this flag ANDed together to form multiple flags. If a particular bit is set; corresponding meaning is TRUE 
or else it will be FALSE. 



e.g. 



if (MsgFlag and CAN_RX_OVERFLOW) <> 0 then 



Receiver overflow has occurred . 
We have lost our previous message . 



const 


CAN 


RX 


FILTER BITS 


= $07 


' Use 


these to access filter bits 


const 


CAN 


RX 


FILTER 1 = 


$00 








const 


CAN 


RX 


FILTER 2 = 


$01 








const 


CAN 


RX 


FILTER 3 = 


$02 








const 


CAN 


RX 


FILTER 4 = 


$03 








const 


CAN 


RX 


FILTER 5 = 


$04 








const 


CAN 


RX 


FILTER 6 = 


$05 








const 


CAN 


RX 


OVERFLOW = 


$08 


' Set 


if 


Overflowed else cleared 


const 


CAN 


RX 


INVALID MSG 


= $10 


' Set 


if 


invalid else cleared 


const 


CAN 


RX 


XTD FRAME = 


$20 


' Set 


if 


XTD message else cleared 


const 


CAN 


RX 


RTR FRAME = 


$40 


' Set 


if 


RTR message else cleared 


const 


CAN 


RX 


DBL BUFFERED = $8 0 


' Set 


if 


this message was hardware 



CAN_MASK 

These constant values define mask codes. Routine CANSetMask()requires this code as one of its 
arguments. These enumerations must be used by itself i.e. it cannot be ANDed to form multiple values. 

const CAN_MASK_B1 = 0 
const CAN MASK B2 = 1 



CAN_FILTER 



These constant values define filter codes. Routine CANSetFilter() requires this code as one of its 
arguments. These enumerations must be used by itself, i.e. it cannot be ANDed to form multiple values. 



const CAN_FILTER_B1_F1 = 0 

const CAN_FILTER_B1_F2 = 1 

const CAN_FILTER_B2_F1 = 2 

const CAN FILTER B2 F2 = 3 



const CAN_FILTER_B2_F3 = 4 
const CAN FILTER B2 F4 = 5 



CAN_CONFIG_FLAGS 

These constant values define flags related to configuring CAN module. Routines CANInitialize() and 
CANSetBaudRateQ use these codes. One or more these values may be ANDed to form multiple flags 



const 


CAN 


CONFIG 


DEFAULT = $ FF 




' 11111111 


const 


CAN 


CONFIG 


PHSEG2 PRG BIT = 


$01 




const 


CAN 


CONFIG 


PHSEG2 PRG ON = 


$ FF 


' XXXXXXX1 


const 


CAN 


CONFIG 


PHSEG2 PRG OFF = 


$FE 


' xxxxxxxo 


const 


CAN 


CONFIG 


LINE FILTER BIT 


= $02 




const 


CAN 


CONFIG 


LINE FILTER ON = 


$FF 


' XXXXXX1X 


const 


CAN 


CONFIG 


LINE FILTER OFF 


= $ FD 


' xxxxxxox 


const 


CAN 


CONFIG 


SAMPLE BIT = $04 






const 


CAN 


CONFIG 


SAMPLE ONCE = $ FF 


' xxxxxixx 


const 


CAN 


CONFIG 


SAMPLE THRICE = 


$ FB 


' xxxxxoxx 


const 


CAN 


CONFIG 


MSG TYPE BIT = $08 




const 


CAN 


CONFIG 


STD MSG = $ FF 




' XXXX1XXX 


const 


CAN 


CONFIG 


XTD MSG = $F7 




' xxxxoxxx 


const 


CAN 


CONFIG 


DBL BUFFER BIT = 


$10 




const 


CAN 


CONFIG 


DBL BUFFER ON = 


$ FF 


' XXX1XXXX 


const 


CAN 


CONFIG 


DBL BUFFER OFF = 


$EF 


' XXXOXXXX 


const 


CAN 


CONFIG 


MSG BITS = $60 






const 


CAN 


CONFIG 


ALL MSG = $ FF 




' X11XXXXX 


const 


CAN 


CONFIG 


VALID XTD MSG = 


$ DF 


' X10XXXXX 


const 


CAN 


CONFIG 


VALID STD MSG = 


$BF 


' X01XXXXX 


const 


CAN 


CONFIG 


ALL VALID MSG = 


$9F 


' xooxxxxx 
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Example of interfacing CAN transceiver MCP2551, and MCP2510 with MCU and bus 



5.2.5 Compact Flash Library 



Compact Flash Library provides routines for accessing data on Compact Flash card (abbrev. CF further in 
text). CF cards are widely used memory elements, commonly found in digital cameras. Great capacity 
(8MB ~ 2GB, and more) and excellent access time of typically few microseconds make them very 
attractive for microcontroller applications. 

In CF card, data is divided into sectors, one sector usually comprising 512 bytes (few older models have 
sectors of 256B). Read and write operations are not performed directly, but successively through 512B 
buffer. Following routines can be used for CF with FAT16 and FAT32 file system. 

Note: routines for file handling (cF_File_Write_lnit, CF File Write Byte, 

CF Fiie Write Compiete) can be used only with FAT16 file system, and only with PIC18 family! 



Sec lor Ac-c: 



3 

Byte Address 512 
1024 
1536 



£ecl«0 



SeclOf 1 



512 bytes 



Before write operation, make sure you don't overwrite boot or FAT sector as it could make your card on 
PC or digital cam unreadable. Drive mapping tools, such as Winhex, can be of a great assistance. 

5.2.5.1 CF_lnit_Port - Initializes ports appropriately 



Prototype 


sub procedure CF INIT PORT (dim byref CtrlPort as byte, dim byref DataPort as 
byte) 


Description 


The procedure initializes ports appropriately: 

<CtrlPort> is control port, and <DataPort> is data port to which CF is attached. 


Example 


CF Init Port(PORTB, PORTD) ' Control port is PORTB , Data port is PORTD 


5.2.5.2 CF_Detect - Checks for presence ofCF 


Prototype 


sub function CF DETECT (dim byref CtrlPort as byte) as byte 


Description 


The function checks if Compact Flash card is present. Returns true if present, 
otherwise returns false. <CtrlPort>must be initialized (call CF INIT PORT first). 


Example 


do 

nop 

loop until CF Detect (PORTB) = true ' wait until CF card is inserted 



5.2.5.3 CF_Write_lnit - Initializes CF card for writing 



Prototype 


sub procedure CF WRITE INI T (dim byref CtrlPort as byte, dim 
byref DataPort as byte, dim Adr as longint, dim SectCnt as byte) 


Description 


The procedure initializes CF card for writing. Ports need to be initialized. 
Parameters: 

CtrlPort - control port, 
DataPort - data port, 
k - specifies sector address from where data will be written, 
SectCnt - parameter is total number of sectors prepared for write. 


Example 


CF Write Init(PORTB, PORTD, 590, 1) ' Initialize write at sector address 
590 

' of 1 sector (512 bytes) 


5.2.5.4 CF_Write_Byte - Writes 1 byte to CF 


Prototype 


sub procedure CF WRITE BYTE (dim byref CtrlPort as byte, dim 
byref DataPort as byte, dim BData as byte) 


Description 


The procedure writes 1 byte to Compact Flash. The procedure has effect only if CF 
card is initialized for writing. 

Parameters: 

CtrlPort - control port, 
DataPort - data port, 
dat - data byte written to CF 


Example 


CF Write Init(PORTB, PORTD, 590, 1) ' Initialize write at sector address 
590 

' of 1 sector (512 bytes) 

for i = 0 to 511 ' Write 512 bytes to sector at address 
590 

CF Write Byte ( PORTB , PORTD, i) 
next i 


5.2.5.5 CF_Write_Word - Writes 1 word to CF 


Prototype 


sub procedure CF WRITE WORD (dim byref CtrlPort as byte, dim 
byref DataPort as byte, dim WData as word) 


Description 


The procedure writes 1 word to Compact Flash. The procedure has effect only if CF 





card is initialized for writing. 




Parameters: 

CtrlPort - control port, 
DataPort - data port, 
Wdata - data word written to CF 


Example 


CF Write Word(PORTB, PORTD, Data) 


5.2.5.6 CF_Read_lnit - Initializes CF card for reading 


Prototype 


sub procedure CF READ INIT (dim byref CtrlPort as byte, dim byref DataPort as 
byte, dim Adr as longint, dim SectCnt as byte) 


Description 


Parameters: 

CtrlPort - control port, 
DataPort - data port, 
Adr - specifies sector address from where data will be read, 
SectCnt - total number of sectors prepared for read operations. 


Example 


CF Read Init(PORTB, PORTD, 590, 1) ' Initialize write at sector 
address 590 

' of 1 sector (512 bytes) 


5.2.5.7 CF_Read_Byte - Reads 1 byte from CF 


Prototype 


sub function CF READ BYTE (dim byref CtrlPort as byte, dim byref DataPort as 
byte) as byte 


Description 


Function reads 1 byte from Compact Flash. Ports need to be initialized, and CF must 
be initialized for reading. 

Parameters: 

CtrlPort - control port, 
DataPort - data port 


Example 


PORTC = CF Read Byte (PORTB, PORTD) ' read byte and display on PORTC 


5.2.5.8 CF_Read_Word - Reads 1 word from CF 


Prototype 


sub function CF READ WORD (dim byref CtrlPort as byte, dim byref DataPort as 
byte) as word 



Description 


Function reads 1 word from Compact Flash. Ports need to be initialized, and CF must 
be initialized for reading. 

Parameters: 

CtrlPort - control port, 
DataPort - data port 


Example 


PORTC = CF Read Word(PORTB, PORTD) ' read word and display on PORTC 


5.2.5.9 CF File Write Init - Initializes CF card for file writing operation (FAT16 only, 
PIC18only) 


Prototype 


sub procedure CF File Write Init (dim byref CtrlPort as byte, dim 
byref DataPort as byte) 


Description 


This procedure initializes CF card for file writing operation (FAT 16 only, PIC 18 
only). 

Parameters: 

CtrlPort - control port, 
DataPort - data port 


Example 


CF File Write Init (PORTB, PORTD) 


5.2.5.10 CF_File_Write_Byte - Adds one byte to file (FAT16 only, PIC18 only) 


Prototype 


sub procedure CF File Write Byte (dim byref CtrlPort as byte, dim 
byref DataPort as byte, dim Bdata as byte) 


Description 


This procedure adds one byte (Bdata) to file (FAT 16 only, PIC 18 only). 
Parameters: 

CtrlPort - control port, 
DataPort - data port, 
Bdata - data byte to be written. 


Example 


while i < 50 00 0 

CF File Write Byte (PORTB, PORTD, 48 + index) 

' demonstration: writes 50000 bytes to file 
inc ( i ) 
wend 



5.2.5.11 CF_File_Write_Complete - Closes file and makes it readable (FAT16 only, 
PIC18 only) 



Pl"OtotVDe P roce dure CF_File_Write_Complete (dim byref CtrlPort as byte, dim 

byref DataPort as byte, dimbyref Filename as char [9]) 



. . Upon all data has be written to file, use this procedure to close the file and make it 
Description readable by windows (FAT 1 6 only; PIC i g only) 



Example 



Parameters: 

CtrlPort - control 

DataPort - data 

Filename (must be in uppercase and must have exactly 8 characters). 



CF File Write_Complete (PORTB, PORTD, "examplel", "txt") 



port, 
port, 



+5V 
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Compact Flash Card 



Compact Flash Connector 
(TOP VIEW) 



Pin diagram of CF memory card 



5.2.6 EEPROM Library 



EEPROM data memory is available with a number of PIC MCU models. Set of library procedures and 
functions is listed below to provide you comfortable work with EEPROM. 



Notes: 

Be aware that all interrupts will be disabled during execution of EEPROM_Write routine (GIE bit of 
INTCON register will be cleared). Routine will set this bit on exit. 

Ensure minimum 20ms delay between successive use of routines EEPROM_Write and EEPROM_Read. 
Although EEPROM will write the correct value, EEPROM_Read might return undefined result. 



5.2.6.1 EEPROM_Read - Reads 1 byte from EEPROM 



Prototype 


sub function EEprom Read (dim Address as byte) as byte 


Description 


Function reads byte from <Address> . <Address> is of byte type, which means it can 
address only 256 locations. For PIC 18 MCU models with more EEPROM data 
locations, it is programmer's responsibility to set SFR EEADRH register 
appropriately. 

Ensure minimum 20ms delay between successive use of routines EEPROM Write 
and EEPROMRead. Although EEPROM will write the correct value, 
EEPROM Read might return undefined result. 


Example 


TRISB = 0 
Delay ms (30) 

for i = 0 to 2 0 

PORTB = EEPROM Read(i) 
for j = 0 to 200 

Delay_us (500) 
next j 
next i 


5.2.6.2 EEPROM_Write - Writes 1 byte to EEPROM 


Prototype 


sub procedure EEprom Write (dim Address as byte, dim Data as byte) 


Description 


Function writes byte to <Address>. <Address> is of byte type, which means it can 
address only 256 locations. For PIC 18 MCU models with more EEPROM data 
locations, it is programmer's responsibility to set SFR EEADRH register 
appropriately. 

All interrupts will be disabled during execution of EEPROM Write routine (GIE bit 
of INTCON register will be cleared). Routine will set this bit on exit 

Ensure minimum 20ms delay between successive use of routines EEPROM Write 
and EEPROMRead. Although EEPROM will write the correct value, 
EEPROM Read might return undefined result. 



for i = 0 to 20 

EEPROM_Write (i, i + 6) 
next i 



5.2.7 Flash Memory Library 



This library provides routines for accessing microcontroller Flash memory. 
Note: Routines differ for PIC16 and PIC18 families. 



5.2.7.1 Flash_Read - Reads data from microcontroller Flash memory 



Prototype 


sub function Flash Read (dim Address as longint) as byte ' for PIC18 
sub function Flash Read (dim Address as word) as word ' for PIC16 


Description 


Procedure reads data from the specified <Address>. 


Example 


for i = 0 to 63 

toRead = Flash_Read ( $0D0 0 + i) 

' read 64 consecutive locations starting from OxODOO 
next i 


5.2.7.2 Flash_Write - Writes data to microcontroller Flash memory 


Prototype 


sub procedure Flash Write (dim Address as longint, dim byref Data as 

byte [64] ) ' for PIC18 

sub procedure Flash Write (dim Address as word, dim Data as word) ' for PIC16 


Description 


Procedure writes chunk of data to Flash memory (for PIC 18, data needs to exactly 64 
bytes in size). Keep in mind that this function erases target memory before 
writing <Data> to it. This means that if write was unsuccessful, your previous data 
will be lost. 


Example 


for i = 0 to 63 ' initialize array 

toWrite[i] = i 
next i 

Flash Write ($0D00, toWrite) ' write contents of the array to the address 
OxODOO 



5.2.8 I2C Library 



I2C interface is serial interface used for communicating with peripheral or other microcontroller devices. 
Routines below are intended for PIC MCUs with MSSP module. By using these, you can configure and use 
PIC MCU as master in I2C communication. 



Example 



5.2.8.1 I2C Init - Initializes I2C module 



Prototype 


sub procedure I2C Init (const Clock as longint) 


Description 


Initializes I2C module. Parameter <Clock> is a desired I2C clock (refer to device 
data sheet for correct values in respect with Fosc). 


Example 


I2C Init(lOOOOO) 


5.2.8.2 l2C_Start - Issues start condition 


Prototype 


sub function I2C Start as byte 


Description 


Determines if I2C bus is free and issues START condition; if there is no error, 
function returns 0. 


Example 


I2C Start 


5.2.8.3 l2C_Repeated_Start - Performs repeated start 


Prototype 


sub procedure I2C Repeated Start 


Description 


Performs repeated start condition. 


Example 


I2C Repeated Start 


5.2.8.4 l2C_Rd - Receives byte from slave 


Prototype 


sub function I2C Rd(dim Ack as byte) as byte 



Description 


Receives 1 byte from slave and sends not acknowledge signal if <Ack> is 0; 
otherwise, it sends acknowledge. 


Example 


Data = I2C Rd ( 1 ) ' read data w/ acknowledge 


5.2.8.5 l2C_Wr - Sends data byte via I2C bus 


Prototype 


sub function I2C Wr (dim Data as byte) as byte 


Description 


After you have issued a start or repeated start you can send <Data> byte via I2C bus. 
The function returns 0 if there are no errors. 


Example 


I2C Wr($A2) ' send byte via I2C (command to 24c02) 


5.2.8.6 l2C_Stop - Issues STOP condition 


Prototype 


sub procedure I2C Stop as byte 


Description 


Issues STOP condition. 


Example 


I2C_Stop 
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Example of I2C communication with 24c02 EEPROM 



5.2.9 LCD Library 



BASIC provides a set of library procedures and functions for communicating with commonly used 4-bit 
interface LCD (with Hitachi HD44780 controller). Be sure to designate port with LCD as output, before 
using any of the following library procedures or functions. 

5.2.9.1 LCDJnit - Initializes LCD with default pin settings 



Prototype 


sub procedure LCD Init (dim byref Port as byte) 


Description 


Initializes LCD at <Port> with default pin settings (see the figure below). 


Example 


LCD Init(PORTB) 

' Initializes LCD on PORTB (check pin settings in the figure below) 


5.2.9.2 LCD_Config - Initializes LCD with custom pin settings 


Prototype 


sub procedure LCD Conf ig (dim byref Port as 

byte, const RS, const EN, const WR, const D7, const D6, const D5, const D4 ) 


Description 


Initializes LCD at <Port> with pin settings you specify: 
parameters <RS>, <EN>, <WR>, <D7> .. <D4> need to be a combination of 





values 0..7(e.g. 3,6,0,7,2,1,4). 


Example 


LCD_Conf ig (PORTD, 1, 2, 0, 3, 5, 4, 6) 

' Initializes LCD on PORTD with our custom pin settings 


5.2.9.3 LCD_Chr - Prints char on LCD at specified row and col 


Prototype 


sub procedure LCD Chr (dim Row as byte, dim Column as byte, dim Character as 
byte) 


Description 


Prints <Character> at specified <Row> and <Column> on LCD. 


Example 


LCD_Chr(l, 2, "e") 

' Prints character "e" on LCD (1st row, 2nd column) 


5.2.9.4 LCD_Chr_CP - Prints char on LCD at current cursor position 


Prototype 


sub procedure LCD Chr CP (dim Character as byte) 


Description 


Prints <Character> at current cursor position. 


Example 


LCD Chr CP ("k") 

' Prints character "k" at current cursor position 


5.2.9.5 LCD_Out - Prints string on LCD at specified row and col 


Prototype 


sub procedure LCD Out (dim Row as byte, dim Column as byte, dim byref Text as 

char [255]) 


Description 


Prints <Text> (string variable) at specified <Row> and <Column> on LCD. Both 
string variables and string constants can be passed. 


Example 


LCD Out (1, 3, Text) 

' Prints string variable Text on LCD (1st row, 3rd column) 



5.2.9.6 LCD_Out_CP - Prints string on LCD at current cursor position 



Prototype 


sub procedure LCD Out CP (dim byref Text as char [255]) 


Description 


Prints <Text> (string variable) at current cursor position. Both string variables and 
string constants can be passed. 


Example 


LCD Out CP ("Some text") 

' Prints "Some text" at current cursor position 


5.2.9.7 LCD_Cmd - Sends command to LCD 


1 

Prototype su b procedure LCD Cmd(dim Command as byte) 


Description 


Sends <Command> to LCD. 

List of available commands follows: 

LCD First Row 
' Moves cursor to 1st row 

LCD Second Row 
' Moves cursor to 2nd row 

LCD Third Row 
' Moves cursor to 3rd row 

LCD Fourth Row 
' Moves cursor to 4th row 

LCD Clear 
' Clears display 

LCD Return Home 
' Returns cursor to home position, 
' returns a shifted display to original position. 
' Display data RAM is unaffected. 

LCD Cursor Off 
' Turn off cursor 

LCD Underline On 
' Underline cursor on 

LCD Blink Cursor On 
' Blink cursor on 

LCD Move Cursor Left 
' Move cursor left without changing display data RAM 

LCD Move Cursor Right 
' Move cursor right without changing display data RAM 



LCD_Turn_On 
' Turn LCD display on 

LCD_Turn_Of f 
' Turn LCD display off 



LCD_Shif t_Left 
' Shift display left without changing display data RAM 

LCD_Shif t_Right 
' Shift display right without changing display data RAM 



Example LCD_Cmd(LCD_Clear) ' Clears LCD display 
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5.2.10 LCD8 Library (8-bit interface LCD) 



BASIC provides a set of library procedures and functions for communicating with commonly used 8-bit 
interface LCD (with Hitachi HD44780 controller). Be sure to designate Control and Data ports with LCD as 
output, before using any of the following library procedures or functions. 



5.2.10.1 LCD8_lnit - Initializes LCD with default pin settings 

I 

Pl"OtotVDe P roce dure LCD8 Init (dim byref Port Ctrl as byte, dim byref Port Data as 

yy byte) 



Description Initializes LCD at <Port_Ctrl> and <Port_Data> with default pin settings (see the 
figure below). 

I 



LCD8_Init (PORTB, PORTC) 
' Initializes LCD on PORTB and PORTC with default pin settings 
' (check pin settings in the figure below) 



5.2.10.2 LCD8_Config - Initializes LCD with custom pin settings 



Prototype 


sub procedure LCD8 Config(dim byref Port Ctrl as byte, dim byref Port Data as 

byte, const RS, constEN, const WR, const D7, const D6, const D5, const D4 , const D3, cc 


Description 


Initializes LCD at <Port Ctrl> and <Port Data> with pin settings you specify: parameters <RS 
range 0..7; parameters <D7>..<D0> need to be a combination of values 0..7 (e.g. 3,6,5,0,7,2, 1,4) 


Example 


LCD8_Config (PORTC, PORTD, 0, 1, 2, 6, 5, 4, 3, 7, 1, 2, 0) 

' Initializes LCD on PORTC and PORTD with our custom pin settings 



5.2.10.3 LCD8_Chr - Prints char on LCD at specified row and col 



Prototype 


sub procedure LCD8 Chr (dim Row as byte, dim Column as byte, dim Character as 
byte) 


Description 


Prints <Character> at specified <Row> and <Column> on LCD. 


Example 


LCD8_Chr(l, 2, "e") 
' Prints character "e" on LCD (1st row, 2nd column) 


5.2.10.4 LCD8_Chr_CP - Prints char on LCD at current cursor position 


Prototype 


sub procedure LCD8 Chr CP (dim Character as byte) 


Description 


Prints <Character> at current cursor position. 


Example 


LCD8 Chr CP("k") 
' Prints character "k" at current cursor position 



Example 



5.2.1 0.5 LCD8_Out - Prints string on LCD at specified row and col 



Prototype 


sub procedure LCD8 Out (dim Row as byte, dim Column as byte, dim 
byref Text as char [255]) 


Description 


Prints <Text> (string variable) at specified <Row> and <Column> on LCD. Both 
string variables and string constants can be passed. 


Example 


LCD8_Out(l, 3, Text) 

' Prints string variable Text on LCD (1st row, 3rd column) 


5.2.10.6 LCD8_Out_CP - Prints string on LCD at current cursor position 


Prototype 


sub procedure LCD8 Out CP (dim byref Text as char[255]) 


Description 


Prints <Text> (string variable) at current cursor position. Both string variables and 
string constants can be passed. 


Example 


LCD8_Out_CP ( "Test" ) 

' Prints "Test" at current cursor position 


5.2.10.7 LCD8_Cmd - Sends command to LCD 


Prototype 


sub procedure LCD8 Cmd(dim Command as byte) 


Description 


Sends <Command > to LCD. 

List of available commands follows: 

LCD First Row 
' Moves cursor to 1st row 

LCD Second Row 
' Moves cursor to 2nd row 

LCD Third Row 
' Moves cursor to 3rd row 

LCD Fourth Row 
' Moves cursor to 4th row 

LCD Clear 
' Clears display 



LCD_Return_Home 
' Returns cursor to home position, 
' returns a shifted display to original position. 
' Display data RAM is unaffected. 

LCD_Cursor_Of f 
' Turn off cursor 

LCD_Underline_On 
' Underline cursor on 



LCD_Blink_Cursor_On 
' Blink cursor on 



LCD_Move_Cursor_Lef t 
' Move cursor left without changing display data RAM 

LCD_Move_Cursor_Right 
' Move cursor right without changing display data RAM 



Example 



LCD_Turn_On 
' Turn LCD display on 

LCD_Turn_Of f 
' Turn LCD display off 

LCD_Shift_Left 
' Shift display left without changing display data RAM 

LCD_Shift_Right 
' Shift display right without changing display data RAM 



LCD8_Cmd(LCD_Clear) ' Clears LCD display 
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LCD HW connection 



5.2.11 Graphic LCD Library 



mikroPascal provides a set of library procedures and functions for drawing and writing on Graphical LCD. 
Also it is possible to convert bitmap (use menu option Tools > BMP2LCD) to constant array and display it 
on GLCD. These routines works with commonly used GLCD 128x64, and work only with the PIC18 family. 



5.2.11.1 GLCD_Config - Initializes GLCD with custom pin settings 



Prototype 


sub procedure GLCD Config(dim byref Ctrl Port as byte, dim 

byref Data Port as byte, dim Reset as byte, dim Enable as byte, dim RS as 

byte, dim RW as byte, dim CS1 as byte, dim CS2 as byte) 


Description 


Initializes GLCD at <Ctrl Port> and <Data Port> with custom pin settings. 


Example 


GLCD LCD Conf ig (PORTB, PORTC, 1,7,4,6,0,2) 



5.2.1 1 .2 GLCDJnit - Initializes GLCD with default pin settings 



Prototype 


sub procedure GLCD Init (dim Ctrl Port as byte, dim Data Port as byte) 


Description 


Initializes LCD at <Ctrl Port> and <Data Port>. With default pin settings 
Reset=7, Enable=l, RS=3, RW=5, CS1=2, CS2=0. 


Example 


GLCD LCD Init (PORTB, PORTC) 



5.2.11.3 GLCD Put Ins - Sends instruction to GLCD. 



Prototype 



sub procedure GLCD Put Ins (dim Ins as byte) 



Description 



Sends instruction <Ins> to GLCD. Available instructions include: 



X_ADRESS = 
Y_ADRESS = 
START LINE 



$B8 
$40 
= $C0 



DISPLAY_ON = $3F 
DISPLAY OFF = $3E 



Adress base for Page 0 
Adress base for Y0 
Adress base for line 0 
Turn display on 
Turn display off 



Example 



GLCD Put Ins (DISPLAY ON) 



5.2.11.4 GLCD_Put_Data - Sends data byte to GLCD. 



Prototype 


sub procedure GLCD Put Data (dim data as byte) 


Description 


Sends data byte to GLCD. 


Example 


GLCD Put Data (temperature) 


5.2.11.5 GLCD_Put_Data2 - Sends data byte to GLCD. 


Prototype 


sub procedure GLCD Put Data2 (dim data as byte, dim side as byte) 


Description 


Sends data to GLCD at specified <side> {<side> can take constant value LEFT or 
RIGHT) . 


Example 


GLCD Put Data2 (temperature, 1) 


5.2.11.6 GLCD_Select_Side- Selects the side of the GLCD. 


Prototype 


sub procedure GLCD Select Side (dim LCDSide as byte) 


Description 


Selects the side of the GLCD: 

' const RIGHT = 0 
' const LEFT = 1 


Example 


GLCD_Select_Side (1) 


5.2.11.7 GLCD_Data_Read - Reads data from GLCD. 


Prototype 


sub function GLCD Data Read as byte 


Description 


Reads data from GLCD. 







Example 


GLCD Data Read 


5.2.11.8 GLCD_Clear_Dot - Clears a dot on the GLCD. 


Prototype 


sub procedure GLCD Clear Dot (dim x as byte, dim y as byte) 


Description 


Clears a dot on the GLCD at specified coordinates. 


Example 


GLCD_Clear_Dot (20, 32) 


5.2.11.9 GLCD_Set_Dot - Draws a dot on the GLCD. 


Prototype 


sub procedure GLCD Set Dot (dim x as byte, dim y as byte) 


Description 


Draws a dot on the GLCD at specified coordinates. 


Example 


GLCD_Set_Dot (20, 32) 


5.2.11.10 GLCD_Circle - Draws a circle on the GLCD. 


Prototype 


sub procedure GLCD Circle (dim CenterX as integer, dim CenterY as 
integer, dim Radius as integer) 


Description 


Draws a circle on the GLCD, centered at <CenterX, CenterY> with <Radius>. 


Example 


GLCD_Circle (30, 42, 6) 



5.2.1 1.11 GLCD Line - Draws a line 



Prototype 


sub procedure GLCD Line (dim xl as integer, dim yl as integer, dim x2 as 
integer, dim y2 as integer) 


Description 


Draws a line from (xl,yl) to (x2,y2). 


Example 


GLCD Line (0, 0, 120, 50) 
GLCD_Line (0, 63, 50, 0) 


5.2.11.12 GLCDJnvert - Inverts display 


Prototype 


sub procedure GLCD Invert (dim Xaxis as byte, dim Yaxis as byte) 


Description 


Procedure inverts display (changes dot state on/off) in the specified area, X pixels 
wide starting from 0 position, 8 pixels high. Parameter Xaxis spans 0..127, parameter 
Yaxis spans 0..7 (8 text lines). 


Example 


GLCD_Invert (60, 6) 


5.2.1 1.13 GLCD_Goto_XY - Sets cursor to dot(x,y) 


Prototype 


sub procedure GLCD Goto XY (dim x as byte, dim y as byte) 


Description 


Sets cursor to dot (x,y). Procedure is used in combination 

with GLCD Put Data, GLCD Put Data2, andGLCD Put Char. 


Example 


GLCD_Goto_XY (60, 6) 


5.2.11.14 GLCD_Put_Char - Prints <Character> at cursor position 


Prototype 


sub procedure GLCD Put Char (dim Character as byte) 


Description 


Prints <Character> at cursor position. 







Example 


GLCD Put Char(k) 


5.2.11.15 GLCD_Clear_Screen - Clears the GLCD screen 


Prototype 


sub procedure GLCD Clear Screen 


Description 


Clears the GLCD screen. 


Example 


GLCD Clear Screen 


5.2.1 1.16 GLCD_Put_Text - Prints text at specified position 


Prototype 


sub procedure GLCD Put Text (dim x pos as word, dim y pos as 
word, dim byref text as char [25], diminvert as byte) 


Description 


Prints <text> at specified position; y_pos spans 0..7. 


Example 


GLCD Put Text(0, 7, My text, NON INVERTED TEXT) 


5.2.11.17 GLCD_Rectangle - Draws a rectangle 


Prototype 


sub procedure GLCD Rectangle (dim XI as byte, dim Yl as byte, dim X2 as 
byte, dim Y2 as byte) 


Description 


Draws a rectangle on the GLCD. (xl,yl) sets the upper left corner, (x2,y2) sets the 
lower right corner. 


Example 


GLCD_Rectangle (10, 0, 30, 35) 



5.2.11.18 GLCD Set Font - Sets font for GLCD 




Description 



Example 



Sets font for GLCD. Parameter <font_index> spans from 1 to 4, and determines 
which font will be used: 



5x8 



dots 
5x7 
3x6 



8x8 



GLCD Set Font (2) 



5.2.12 Manchester Code Library 



mikroBasic provides a set of library procedures and functions for handling Manchester coded signal. 
Manchester code is a code in which data and clock signals are combined to form a single self- 
synchronizing data stream; each encoded bit contains a transition at the midpoint of a bit period, the 
direction of transition determines whether the bit is a 0 or a 1; second half is the true bit value and the 
first half is the complement of the true bit value (as shown in the figure below). 

Manchester RF_Send_Byte format 
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Note: Manchester receive routines are blocking calls 

(Man Receive Conf ig, Man Receive lnit, Man Receive). This means that PIC will wait until the task is 
performed (e.g. byte is received, synchronization achieved, etc). 

Note: Routines for receiving are limited to a baud rate scope from 340 ~ 560 bps. 
5.2.12.1 Man_Receive_lnit - Initialization with default pin 



Prototype 



sub procedure ManReceivelnit (dim byref Port as byte) 







Description 


Procedure works same as Man Receive config, but with default pin setting (pin 6). 


Example 


Man Receive Init(PORTD) 


5.2.12.2 Man_Receive_Config - Initialization with custom pin 


Prototype 


sub procedure Man Receive Config (dim byref Port as byte, dim RXpin as byte) 


Description 


This procedure needs to be called in order to receive signal by 
procedure Man Receive. You need to specify the<Port> and <RXpin> of input 
signal. In case of multiple errors on reception, you should call Man Receive initonce 
again to enable synchronization. 


Example 


Man Receive Config (PORTD, 5) 


5.2.12.3 Man_Receive - Receives a byte 


Prototype 


sub function Man Receive (dim byref Error as byte) as byte 


Description 


Function extracts one byte from signal. If format does not match the 
expected, <Error> flag will be set True. 


Example 


dim ErrorFlag as byte 

temp = Man Receive (ErrorFlag) ' Attempt byte receive 


5.2.12.4 Man_Send_lnit - Initialization with default pin 


Prototype 


sub procedure Man Send Init (dim byref Port as byte) 


Description 


Procedure works same as Man send config, but with default pin setting (pin 0). 



Example 


Man Send Init(PORTB) 


5.2.12.5 Man_Send_Config - Initialization with custom pin 


Prototype 


sub procedure Man Send Config(dim byref Port as byte, dim TXpin as byte) 


Description 


Procedure needs to be called in order to send signals via procedure Man send. 
Procedure specifies <Port> and<TXpin> for outgoing signal (const baud rate). 


Example 


Man Send Conf ig (PORTB, 4) 


5.2.12.6 Man_Send - Sends a byte 


Prototype 


sub procedure Man Send (dim Data as byte) 


Description 


Procedure sends one <Data> byte. 


Example 


for i = 1 to StrLen(sl) 

Man Send (si [i] ) ' Send char 

Delay ms (90) 

next i 



5.2.13 PWM Library 



CCP (Capture/ Compare/ PWM) module is available with a number of PIC MCU models. Set of library 
procedures and functions is listed below to provide comfortable work with PWM (Pulse Width Modulation). 

Note that these routines support module on PORTC pin RC2, and won't work with modules on other ports. 
Also, BASIC doesn't support enhanced PWM modules. 

5.2.13.1 PWMJnit - Initializes PWM module 

I 

Prototype su b procedure PWM_Init (const PWM_Freq) 



Description 


Initializes PWM module with (duty ratio) 0%. <PWM_Freq> is a desired PWM 
frequency (refer to device data sheet for correct values in respect with Fosc). 


Example 


PWM Init(5000) ' initializes PWM module, freq = 5kHz 


5.2.13.2 PWM_Change_Duty - Changes duty ratio 


Prototype 


sub procedure PWM Change Duty (dim New Duty as byte) 


Description 


Routine changes duty ratio. <New Duty> takes values from 0 to 255, where 0 is 0% 
duty ratio, 127 is 50% duty ratio, and 255 is 100% duty ratio. Other values for 
specific duty ratio can be calculated as (Percent*255)/100. 


Example 


while true 

Delay ms (100) 

j = j + 1 

PWM Change Duty(j) 
wend 


5.2.13.3 PWM_Start - Starts PWM 


Prototype 


sub procedure PWM Start 


Description 


Starts PWM. 


Example 


PWM Start 


5.2.13.4 PWM_Stop - Stops PWM 


Prototype 


sub procedure PWM Stop 


Description 
Example 


Stops PWM. 


PWM Stop 
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5.2.14 RS485 Library 



RS485 is a multipoint communication which allows multiple devices to be connected to a single signal 
cable. BASIC provides a set of library routines to provide you comfortable work with RS485 system using 
Master/Slave architecture. 



Master and Slave devices interchange packets of information, each of these packets containing 
synchronization bytes, CRC byte, address byte, and the data. In Master/Slave architecture, Slave can 
never initiate communication. Each Slave has its unique address and receives only the packets containing 
that particular address. It is programmer's responsibility to ensure that only one device transmits data 
via 485 bus at a time. 



RS485 routines require USART module on port C. Pins of USART need to be attached to RS485 interface 
transceiver, such as LTC485 or similar. Pins of transceiver (Receiver Output Enable and Driver Outputs 
Enable) should be connected to port C, pin 2 (see the figure at end of the chapter). 

Note: Address 50 is a common address for all Slave devices: packets containing address 50 will be 
received by all Slaves. The only exceptions are Slaves with addresses 150 and 169, which require their 
particular address to be specified in the packet. 



5.2.14.1 RS485Master_lnit - Initializes MCU as Master in RS485 communication 



Prototype su b procedure RS485master_init 



Description 


Initializes MCU as Master in RS485 communication. USART needs to be initialized. 


Example 


RS485Master Init 


5.2.14.2 RS485Master_Read - Receives message from Slave 


Prototype 


sub procedure RS485master read(dim byref data as byte[5]) 


Description 


lVTa^tpr fpppia/p<2 anv mp^PiO'P Qpnt tw ^11a\/p<i A<i mp'i^ffp^ iirp mnlti-Hvtp thi<i 

procedure must be called for each byte received (see the example at the end of the 
chapter). Upon receiving a message, buffer is filled with the following values: 

• data[0..2] is actual data 

• data[3] is number of bytes received, 1..3 

• data[4] is set to 255 when message is received 

• data[5] is set to 255 if error has occurred 

• data[6] is the address of the Slave which sent the message 

Procedure automatically sets data[4] and data[5] upon every received message. These 
flags need to be cleared repeatedly from the program. 

Note: MCU must be initialized as Master in 485 communication to assign an address 
to MCU 


Example RS485Master Read(dat) 


5.2.14.3 RS485Master_Write - Sends message to Slave 


Prototype 


sub procedure RS485Master Write (dim byref data as byte[2], dim datalen as 
byte, dim address as byte) 


Description 


Routine sends number of bytes (1 < datalen <= 3) from buffer via 485, to slave 
specified by <address>. 

MCU must be initialized as Master in 485 communication. It is programmer's 
responsibility to ensure (by protocol) that only one device sends data via 485 bus at a 
time. 


Example 


RS485Master Write (dat, 1) 



5.2.14.4 RS485Slave Init - Initializes MCU as Slave in RS485 communication 



r rotoiype 
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Description 


Initializes MCU as Slave in RS485 communication. USART needs to be initialized. 

<address> can take any value between 0 and 255, except 50, which is common 
address for all slaves. 


Example 


RS485Slave Init (160) ' initialize MCU as Slave with address 160 


5.2.14.5 RS485Slave_Read - Receives message from Master 


Prototype 


sub procedure RS485Slave Read(dim byref data as byte [5]) 


Description 


Only messages that appropriately address Slaves will be received. As messages are 
multi-byte, this procedure must be called for each byte received (see the example at 
the end of the chapter). Upon receiving a message, buffer is filled with the following 
values: 

• data[0..2] is actual data 

• data[3] is number of bytes received, 1..3 

• data[4] is set to 255 when message is received 

• data[5] is set to 255 if error has occurred 

• rest of the buffer is undefined 

Procedure automatically sets data[4] and data[5] upon every received message. These 
flags need to be cleared repeatedly from the program. 

MCU must be initialized as Master in 485 communication to assign an address to 
MCU. 


Example 


RS485Slave Read(dat) 


5.2.14.6 RS485Slave_Write - Sends message to Master 


Prototype 


sub procedure RS485Slave Write (dim byref data as byte[2], dim datalen as 
byte) 


Description 


Sends number of bytes (1 < datalen <= 3) from buffer via 485 to Master. 



MCU must be initialized as Slave in 485 communication. It is programmer's 
responsibility to ensure (by protocol) that only one device sends data via 485 bus at a 
time. 



Example 



RS485Slave Write (dat, 1) 
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Example of interfacing PC to PIC MCU via RS485 bus 



5.2.15 SPI Library 



SPI (Serial Peripheral Interface) module is available with a number of PIC MCU models. You can easily 
communicate with other devices via SPI - A/D converters, D/A converters, MAX7219, LTC1290 etc. You 
need PIC MCU with hardware integrated SPI (for example, PIC16F877). Then, simply use the following 
functions and procedures. 



5.2.15.1 SPI Init - Standard initialization ofSPI 



Prototype 


sub procedure SPI Init 


Description 


Routine initializes SPI with default parameters: 

• Master mode, 

• clock Fosc/4, 

• clock idle state low, 

• data transmitted on low to high edge, 

• input data sampled at the middle of interval. 


Example 


SPI Init 


5.2.15.2 SPI_lnit_Advanced - does smt 


Prototype 


sub procedure SPI Init Advanced (dim Master as byte, dim Data Sample as 
byte, dim Clock Idle as byte, dim Low To High as byte) 


Description 


For advanced settings, configure and initialize SPI using the procedure 
SPIInitAdvanced. 

Allowed values of parameters: 

<Master> determines the work mode for SPI: 

• Master osc div4 : Master clock=Fosc/4 

• Master osc divi6 : Master clock=Fosc/16 

• Master osc div64 : Master clock=Fosc/64 

• Master tmr2 : Master clock source TMR2 

• slave ss enable : Master Slave select enabled 

• slave ss dis : Master Slave select disabled 

<Data_Sample> determines when data is sampled: 

• Data sample middle '. input data sampled in middle of interval 

• Data sample end : input data sampled at the end of interval 

<Clock Idle> determines idle state for clock: 

• clk idle high : clock idle HIGH 

• clk idle low : clock idle LOW 





<Low To Hign> determines transmit edge tor data: 

• low 2 high : data transmit on low to high edge 

• high 2 low : data transmit on high to low edge 


Example 


SPI Init Advanced (Master OSC div4, Data SAMPLE MIDDLE, 
CLK Idle LOW, LOW 2 HIGH) 

' This will set SPI to: 

' master mode, 

' clock = Fosc/4, 

' data sampled at the middle of interval, 
' clock idle state low, 

' data transmitted at low to high edge. 


5.2.15.3 SPI_Read - Reads the received data 


Prototype 


sub function SPI Read (dim Buffer as byte) as byte 


Description 


Routine provides clock by sending <Buffer> and reads the received data at the end of 
the period. 


Example 


dim rec as byte 

SPI Read (rec) 


5.2.15.4 SPI_Write - Sends data via SPI 


Prototype 


sub procedure SPI Write (dim Data as byte) 


Description 


Routine writes <Data> to SSPBUF and immediately starts the transmission. 


Example 


SPI Write (7) 



5.2.16 USART Library 



USART (Universal Synchronous Asynchronous Receiver Transmitter) hardware module is available with a 
number of PIC MCU models. You can easily communicate with other devices via RS232 protocol (for 
example with PC, see the figure at the end of this chapter - RS232 HW connection). You need a PIC MCU 
with hardware integrated USART (for example, PIC16F877). Then, simply use the functions and 
procedures described below. 



Note: Some PIC micros that have two USART modules, such as P18F8520, require you to specify the 
module you want to use. Simply append the number 1 or 2 to procedure or function name, 

e.g. USART_Write2 (Dat) . 

5.2.16.1 USART Init - Initializes USART 



Prototype 


sub procedure USART Init (const Baud Rate) 


Description 


Initializes PIC MCU USART hardware and establishes communication at 
specified <Baud_Rate> . 

Refer to the device data sheet for baud rates allowed for specific Fosc. If you specify 
the unsupported baud rate, compiler will report an error. 


Example 


USART Init (2400) 


5.2.16.2 USART_Data_Ready - Checks if data is ready 


Prototype 


sub function USART Data Ready as byte 


Description 


Function checks if data is ready. Returns 1 if so, returns 0 otherwise. 


Example 


USART Data Ready 


5.2.16.3 USART_Read - Receives a byte 


Prototype 


sub function USART Read as byte 


Description 


Receives a byte; if byte is not received returns 0. 


Example 


USART Read 



5.2.16.4 USART_Write - Transmits a byte 



Prototype 


sub procedure USART Write (dim Data as byte) 


Description 


Procedure transmits byte <Data>. 


Example 


USART Write (dat) 




RS232 HW connection 



5.2.17 One-Wire Library 

l-wire library provides routines for communicating via 1-wire bus, for example with DS1820 digital 
thermometer. Note that oscillator frequency Fosc needs to be at least 4MHz in order to use the routines 
with Dallas digital thermometers. 



5.2.17.1 OW_Reset - Issues 1-wire reset signal for DS1820 




Description 


Issues 1-wire reset signal for DS1820. Parameters <PORT> and <Pin> specify the 
location of DS1820; return value of the function is 0 if DS1820 is present, and 1 
otherwise. 


Example 


OW Reset (PORTA, 5) 


5.2.17.2 OW_Read - Reads one byte via 1-wire bus 


Prototype 


sub function OW Read (dim byref PORT as byte, Pin as byte) as byte 


Description 


Reads one byte via 1-wire bus. 


Example 


temp = OW Read (PORTA, 5) ' get result from PORTA 


5.2.17.3 OW_Write - Writes one byte via 1-wire bus 


Prototype 


sub procedure OW Write (dim byref PORT as byte, dim Pin as byte, dim par as 
byte) 


Description 


Writes one byte (<par>) via 1-wire bus 


Example 


OW Write (PORTA, 5, $44) 


5.2.18 Software I2C 

BASIC provides routines which implement software I2C. These routines are hardware independent and 
can be used with any MCU. Software I2C enables you to use MCU as Master in I2C communication. Multi- 
master mode is not supported. 

5.2.18.1 Soft_l2C_Config - Configure the I2C master mode 


Prototype 


sub procedure Soft I2C Config(dim byref Port as byte, const SDA, const SCL) 


Description 


Configure the 12 C master mode. 





Parameter <Port> specifies port of MCU on which SDA and SCL pins will be 
located; 

parameters <SCL> and <SDA> need to be in range 0..7 and cannot point at the same 
pin; 


Example 


Soft I2C Conf ig (PORTD, 3, 4) 


5.2.18.2 Soft_l2C_Start - Issues START condition 


Prototype 


sub procedure Soft I2C Start 


Description 


Issues START condition. 


Example 


Soft I2C Start 


5.2.18.3 Soft_l2C_Write - Send data byte via I2C bus 


Prototype 


sub function Soft I2C Write (dim Data as byte) as byte 


Description 


After you have issued a start signal you can send <Data> byte via I2C bus. The 
function returns 0 if there are no errors. 


Example 


Soft_l2C_Write ($A3) 


5.2.18.4 Soft_l2C_Read - Receives byte from slave 


Prototype 


sub function Soft I2C Read (dim Ack as byte) as byte 


Description 


Receives 1 byte from slave and sends not acknowledge signal if <Ack> is 0; 
otherwise, it sends acknowledge. 


Example 


EE_data = Soft_I2C_Read (0) 



5.2.18.5 Soft_l2C_Stop - Issues STOP condition 



Prototype 


sub procedure Soft I2C Stop 


Description 


Issues STOP condition. 


Example 


Soft I2C Stop 



5.2.19 Software SPI Library 



BASIC provides routines which implement software SPI. These routines are hardware independent and 
can be used with any MCU. You can easily communicate with other devices via SPI - A/D converters, D/A 
converters, MAX7219, LTC1290 etc. Simply use the following functions and procedures. 



5.2.19.1 Soft_SPI_Config - Configure MCU for SPI communication 



Prototype 


sub procedure 

Soft SPI Config(dim byref Port as byte, const SDI, const SDO, const SCK) 


Description 


Routine configures and initializes software SPI with the following defaults: 

• Set MCU to master mode, 

• Clock = 50kHz, 

• Data sampled at the middle of interval, 

• Clock idle state low 

• Data transmitted at low to high edge. 

SDI pin, SDO pin, and SCK pin are specified by the appropriate parameters. 


Example 


Soft_SPI_Conf ig (PORTB, 1, 2, 3) 
' SDI pin is RBI, SDO pin is RB2 , and SCK pin is RB3 . 


5.2.19.2 Soft_SPI_Read - Reads the received data 


Prototype 


sub function Soft SPI read (dim Buffer as byte) as byte 


Description 


Routine provides clock by sending <Buffer> and reads the received data at the end of 
the period. 



Example 


Soft SPI Read(dat) 


5.2.19.3 Soft_SPI_Write - Sends data via SPI 


Prototype 


sub procedure Soft SPI Write (dim Data as byte) 


Description 


Routine writes <Data> to SSPBUF and immediately starts the transmission. 


Example 


Soft_SPI_Write (dat) 



5.2.20 Software UART Library 



BASIC provides routines which implement software UART. These routines are hardware independent and 
can be used with any MCU. You can easily communicate with other devices via RS232 protocol . Simply 
use the functions and procedures described below. 

5.2.20.1 Soft_UART_lnit - Initializes UART 



Prototype 


sub procedure Soft UART Init (dim byref Port as 
byte, const RX, const TX, const Baud Rate) 


Description 


Initializes PIC MCU UART at specified pins establishes communication 
at <Baud Rate>. 

If you specify the unsupported baud rate, compiler will report an error. 


Example 


Soft UART Init(PORTB, 1, 2, 9600) 


5.2.20.2 Soft_UART_Read - Receives a byte 


Prototype 


sub function Soft UART Read (dim byref Msg received as byte) as byte 


Description 


Function returns a received byte. Parameter <Msg received> will take true if 
transfer was succesful. Soft UART Read is a non-blocking function call, so you 
should test <Msg received> manually (check the example below). 


Example 


Received byte = Soft UART Read (Rec ok) 



5.2.20.4 Soft_UART_Write - Transmits a byte 



Prototype 


sub procedure Soft USART Write (dim Data as byte) 


Description 


Procedure transmits byte <Data>. 


Example 


Soft UART Write (Received byte) 



5.2.21 Sound Library 



BASIC provides a sound library which allows you to use sound signalization in your applications. 
5.2.21.1 Soundjnit - Initializes sound engine 



Prototype 


sub procedure Sound Init (dim byref Port, dim Pin as byte) 


Description 


Procedure sound init initializes sound engine and prepares it for output at 
specified <Port> and <Pin>. Parameter <Pin> needs to be within range 0..7. 


Example 


PORTB = 0 ' Clear PORTB 
TRISB = 0 ' PORTB is output 

Sound Init (PORTB, 2) ' Initialize sound on PORTB. RB2 


5.2.21 .2 Sound_Play - Plays sound at specified port 


Prototype 


sub procedure Sound Play (dim byref Port, dim Pin as byte) 


Description 


Procedure sound Play plays the sound at the specified port pin. <Period_div_10> is 
a sound period given in MCU cycles divided by ten, and generated sound lasts for a 
specified number of periods (<Num_of_Periods>). 

For example, if you want to play sound of lKHz: t = i/f = ims = 1000 cycles @ 

4MHz<.code>. This gives us our first parameter: 1000/10 = 100. Then, we 
could play 150 periods like this: Sound Play(100, 150) . 


Example 


Sound Init (PORTB, 2) ' Initialize sound on PORTB. RB2 





while true 








adcValue = 


ADC Read (2) 


' Get lower byte from ADC 




Sound Play 


(adcValue, 200) 


' Play the sound 




wend 







5.2.22 Trigonometry Library 



BASIC provides a trigonometry library for applications which involve angle calculations. Trigonometric 
routines take an angle (in degrees) as parameter of type word and return sine and cosine multiplied by 
1000 and rounded up (as integer). 



5.2.22.1 SinE3 - Returns sine of angle 



Prototype 


sub function sinE3 (dim Angle as word) as integer 


Description 


Function takes a word-type number which represents angle in degrees and returns the 
sine of <Angle> as integer, multiplied by 1000 (1E3) and rounded up to nearest 
integer: result = round _up (sin (Angle) *iooo) . Thus, the range of the return values 
for these functions is from -1000 to 1000. 

Note that parameter <Angle> cannot be negative. Function is implemented as lookup 
table, and the maximum error obtained is ±1. 


Example 


dim angle as word 
dim result as integer 

angle = 45 

result = sinE3 (angle) ' result is 707 


5.2.22.2 CosE3 - Returns cosine of angle 


Prototype 


sub function cosE3 (dim Angle as word) as integer 


Description 


Function takes a word-type number which represents angle in degrees and returns the 
cosine of <Angle> as integer, multiplied by 1000 (1E3) and rounded up to nearest 
integer: result = round _up (cos (Angle) *iooo) . Thus, the range of the return values 
for these functions is from -1000 to 1000. 

Note that parameter <Angle> cannot be negative. Function is implemented as lookup 
table, and the maximum error obtained is ±1. 


Example 


dim angle as word 
dim result as integer 

angle = 90 



result = cosE3 (angle) ' result is 0 



5.2.23 Utilities 

BASIC provides a utility set of procedures and functions for faster development of your applications. 



5.2.23.1 Button - Debounce 



Prototype 


sub function Button (dim byref PORT as byte, dim Pin as byte, dim Time as 
byte, dim Astate as byte) as byte 


Description 


Function eliminates the influence of contact flickering due to the pressing of a button 
(debouncing). 

Parameters <PORT> and <Pin> specify the location of the button; 
parameter <Time> represents the minimum time interval that pin must be in active 
state in order to return one; parameter <Astate> can be only zero or one, and it 
specifies if button is active on logical zero or logical one. 


Example 


if Button (PORTB, 0, 1, 1) then 

flag = 255 
end if 



Chapter 6: Examples with PIC Integrated Peripherals 

• Introduction 

• 6.1 Interrupt Mechanism 

• 6.2 Internal AD Converter 

• 6.3 TMRO Timer 

• 6.4 TMR1 Timer 

• 6.5 PWM Module 

• 6.6 Hardware UART module (RS-232 Communication) 



Introduction 

It is commonly said that microcontroller is an "entire computer on a single chip", which implies that it has 
more to offer than a single CPU (microprocessor). This additional functionality is actually located in 
microcontroller's subsystems, also called the "integrated peripherals". These (sub)devices basically have 



two major roles: they expand the possibilities of the MCU making it more versatile, and they take off the 
burden for some repetitive and "dumber" tasks (mainly communication) from the CPU. 



Every microcontroller is supplied with at least a couple of integrated peripherals - commonly, these 
include timers, interrupt mechanisms and AD converters. More powerful microcontrollers can command a 
larger number of more diverse peripherals. In this chapter, we will cover some common systems and the 
ways to utilize them from BASIC programming language. 



6. 1 1nterrupt Mechanism 



Interrupts are mechanisms which enable instant response to events such as counter overflow, pin 
change, data received, etc. In normal mode, microcontroller executes the main program as long as there 
are no occurrences that would cause an interrupt. Upon interrupt, microcontroller stops the execution of 
main program and commences the special part of the program which will analyze and handle the 
interrupt. This part of program is known as the interrupt (service) routine. 

In BASIC, interrupt service routine is defined by procedure with reserved name interrupt. Whatever 
code is stored in that procedure, it will be executed upon interrupt. 

First, we need to determine which event caused the interrupt, as PIC microcontroller calls the same 
interrupt routine regardless of the trigger. After that comes the interrupt handling, which is executing the 
appropriate code for the trigger event. 
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Here is a simple example: 



In the main loop, program keeps LED_run diode on and LED_int diode off. Pressing the button T causes 
the interrupt - microcontroller stops executing the main program and starts the interrupt procedure. 



program testinterrupt 



symbol LED_run = PORTB . 7 ' LED_run is connected to PORTS pin 7 



symbol LED_int = PORTB . 6 ' LED_int is connected to PORTB pin 6 



sub procedure interrupt ' Interrupt service routine 



if INTCON . RBIF = 1 then ' Changes on RB4-RB7 ? 



INTCON . RBIF = 0 



else if INTCON. INTF = 1 then ' External interupt (RBO pin) ? 



LED run = 0 



LED int = 1 



Delay_ms (500) 



INTCON. INTF = 0 



else if INTCON. TOIF = 
INTCON. TOIF = 



1 then ' TMRO interrupt occurred ? 

0 



else if INTCON 


EE IF = 1 then ' Is EEPROM write cycle finished ? 


INTCON 


EEIF = 0 


end if 




end if 




end if 




end if 




end sub 




main : 




TRISB = %00111111 


' Pins RB6 and RB7 are output 


OPTION REG = %10000000 


' Turn off pull-up resistors 




' and set interrupt on falling edge 




' of RBO signal 


INTCON = %10010000 


' Enable external interrupts 


PORTB = 0 


' Initial value on PORTB 



eloop : 


While there is no interrupt , program runs m endless 


J oop : 




LED run = 1 


' LED run is on 


LED int = 0 


' LED int is off 


goto eloop 




end. 




Now, what happens when 


we push the button? Our interrupt routine first analyzes the interrupt by 



checking flag bits with couple of if .. then instructions, because there are several possible interrupt 
causes. In our case, an external interrupt took place (pin RBO/INT state changes) and therefore bit INTF 
in INTCON register is set. Microcontroller will change LED states, and provide a half second delay for us 
to actually see the change. Then it will clear INTF bit in order to enable interrupts again, and return to 
executing the main program. 

In situations where microcontroller must respond to events unrelated to the main program, it is very 
useful to have an interrupt service routine. Perhaps, one of the best examples is multiplexing the seven- 
segment display - if multiplexing code is tied to timer interrupt, main program will be much less 
burdened because display refreshes in the background. 

6.2 Internal AD Converter 

A number of microcontrollers have built in Analog to Digital Converter (ADC). Commonly, these AD 
converters have 8-bit or 10-bit resolution allowing them voltage sensitivity of 19.5mV or 4.8mV, 
respectively (assuming that default 5V voltage is used). 

The simplest AD conversion program would use 8-bit resolution and 5V of microcontroller power as 
referent voltage (value which the value "read" from the microcontroller pin is compared to). In the 
following example we measure voltage on RAO pin which is connected to the potentiometer (see the 
figure below). 
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Potentiometer gives OV in one terminal position and 5V in the other - since we use 8-bit conversion, our 
digitalized voltage can have 256 steps. The following program reads voltage on RAO pin and displays it on 
port B diodes. If not one diode is on, result is zero and if all of diodes are on, result is 255. 



program 


ADC 8 




main : 






TRISA = 


Mlllll 


' Port A is input 



PORTD = 


0 




TRISD = 


%00000000 




ADCON1 = 


%1000010 


' Port A is in analog mode, 






' 0 and 5V are referent voltage values, 






' and the result is aligned right 






' (higher 6 bits of ADRESH are zero) . 


ADCONO = 


%11010001 


' ADC clock is generated by internal RC 






' circuit; voltage is measured on RA2 and 






' allows the use of AD converter 


Delay ms 


(500) 


' 500 ms pause 


eloop : 






ADCONO 


.2=1 


' Conversion starts 


wait : 







wait for ADC to finish 



Delay_ms (5) 



if ADCON0.2 = 1 then 



goto wait 



end if 



PORTD = ADRESH ' Set lower 8 bits on port D 



Delay ms (500) ' 500 ms pause 



goto eloop ' Repeat all 



end. ' End of program. 



First, we need to properly initialize registers ADCON1 and ADCONO. After that, we set ADCON0.2 bit 
which initializes the conversion and then check ADCONO. 2 to determine if conversion is over. If over, the 
result is stored into ADRESH and ADRESL where from it can be copied. 



Former example could also be carried out via ADC_Read instruction. Our following example uses 10-bit 
resolution: 



program ADC_10 



dim AD Res as word 



main : 




TRISA = %11111111 


' PORTA is input 


TRISD = %00000000 


' PORTD is output 


ADC0N1 = %1000010 


' PORTA is in analog mode, 




' 0 and 5V are referent voltage values, 




' and the result is aligned right 


eloop : 




AD Res = ADC read (2) 


' Execute conversion and store result 




' in variable AD Res. 


PORTD = Lo (AD Res) 


' Display lower byte of result on PORTD 


Delay_ms (500) 


' 500 ms pause 


goto eloop 


' Repeat all 


end. 


' End of program 



As one port is insufficient, we can use LCD for displaying all 10 bits of result. Connection scheme is below 
and the appropriate program follows. For more information on LCD routines, check Chapter 5.2: Library 
Routines. 
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program ADC on LCD 






dim AD Res as word 






dim dummyCh as char [ 6] 






main : 






TRISA = %1111111 


' PORTA is 


input 


TRISB = 0 


' PORTS is 


output (for LCD) 



ADC0N1 = %10000010 


' PORTA is in analog mode, 




' 0 and 5V are referent voltage values, 




' and the result is aligned right. 


Led Init(PORTB) 


' Initialize LCD 


Led Cmd(LCD CLEAR) 


' Clear LCD 


Led Cmd(LCD CURSOR OFF) 


' and turn the cursor off 


eloop : 




AD Res = ADC Read (2) 


' Execute conversion and store result 




' to variable AD Res 


LCD_Out(l, 2, " ") 


' Clear LCD from previous result 


WordToStr (AD Res, dummyCh) 


' Convert the result in text, 


LCD Out (2, 2, dummyCh) 


' and print it in line 1, char 1 


Delay_ms (500) 


' 500 ms pause 


goto eloop 


' Repeat all 



end. 



' End of program 



6.3 TMRO Timer 

TMRO tinner is an 8-bit special function register with working range of 256. Assuming that 4MHz oscillator 
is used, TMRO can measure 0-255 microseconds range (at 4MHz, TMRO increments by one microsecond). 
This period can be increased if prescaler is used. Prescaler divides clock in a certain ratio (prescaler 
settings are made in OPTION_REG register). 

Our following program example shows how to generate 1 second using TMRO timer. For visual purposes, 
program toggles LEDs on PORTB every second. 

Before the main program, TMRO should have interrupt enabled (bit 2) and GIE bit (bit 7) in INTCON 
register should be set. This will enable global interrupts. 



program Timer 0 lsec 






dim cnt as byte 






dim a as byte 






dim b as byte 






sub procedure interrupt 






cnt = cnt + 1 ' 


Increment value 


of cnt on every interrupt 


TMRO = 96 






INTCON = $20 ' 


Set T0IE, clear 


TOIF 


end sub 







a = 0 



b = 1 



OPTION_REG = $84 ' Assign prescaler to TMRO 



TRISB = 0 



' PORTB as output 



PORTB = $FF 



Initialize PORTB 



cnt = 0 



' Initialize cnt 



TMRO = 9( 



INTCON = $A0 



' Enable TMRO interrupt 



' If cnt is 200, then toggle PORTB LEDs and reset cnt 



do 



if cnt = 200 then 



PORTB = not (PORTB) 



cnt = 0 



end if 



loop until 0=1 



end. 



Prescaler is set to 32, so that internal clock is divided by 32 and TMRO increments every 31 
microseconds. If TMRO is initialized at 96, overflow occurs in (256-96)*31 us = 5 ms. We 
increase cnt every time interrupt takes place, effectively measuring time according to the value of this 
variable. When cnt reaches 200, time will total 200*5 ms = 1 second. 

6.4 TMR1 Timer 

TMRl timer is a 16-bit special function register with working range of 65536. Assuming that 4MHz 
oscillator is used, TMRl can measure 0-65535 microseconds range (at 4MHz, TMRl increments by one 
microsecond). This period can be increased if prescaler is used. Prescaler divides clock in a certain ratio 
(prescaler settings are made in T1CON register). 

Before the main program, TMRl should be enabled by setting the zero bit in T1CON register. First bit of 
the register defines the internal clock for TMRl - we set it to zero. Other important registers for working 
with TMRl are PIR1 and PIE1. The first contains overflow flag (zero bit) and the other is used to enable 
TMRl interrupt (zero bit). With TMRl interrupt enabled and its flag cleared, we only need to enable global 
interrupts and peripheral interrupts in the INTCON register (bits 7 and 6, respectively). 

Our following program example shows how to generate 10 seconds using TMRl timer. For visual 
purposes, program toggles LEDs on PORTB every 10 seconds. 



program Timer 1_10 sec 



dim cnt as byte 



sub procedure interrupt 
cnt = cnt + 1 

pirl.O = 0 ' Clear TMRl IF 

end sub 



main : 



TRISB = 0 



T1C0N = 1 



PIR1.TMR1IF = 0 ' Clear TMR1IF 



PIE1 = 1 ' Enable interrupts 



PORTB = $F0 



cnt = 0 ' Initialize cnt 



INTCON = $C0 



' If cnt is 152, then toggle PORTB LEDs and reset cnt 



do 



if cnt = 152 then 



PORTB = not (PORTB) 



cnt = 0 



end if 



loop until 0=1 



end. 



Prescaler is set to 00 so there is no dividing the internal clock and overflow occurs every 65.536 ms. We 
increase cnt every time interrupt takes place, effectively measuring time according to the value of this 
variable. When cnt reaches 152, time will total 152*65.536 ms = 9.96 seconds. 

6.5 PWM Module 

Microcontrollers of PIC16F87X series have one or two built-in PWM outputs (40-pin casing allows 2, 28- 
pin casing allows 1). PWM outputs are located on RC1 and RC2 pins (40-pin MCUs), or on RC2 pin (28-pin 
MCUs). Refer to PWM library (Chapter 5.2: Library Routines) for more information. 

The following example uses PWM library for getting various light intensities on LED connected to RC2 pin. 
Variable which represents the ratio of on to off signals is continually increased in the loop, taking values 
from 0 to 255. This results in continual intensifying of light on LED diode. After value of 255 has been 
reached, process begins anew. 



program PWM LED Test 




dim j as byte 




main : 




TRISB = 0 


' PORTB is output 


PORTB = 0 


' Set PORTB to 0 


j = 0 




TRISC = 0 


' PORTC is output 


PORTC = SFF 


' Set PORTC to $FF 



PWM Init (5000) 


' Initialize PWM module 


PWM Start 


' Start PWM 


while true 


' Endless loop 


Delay ms (10) 


' Wait 10ms 


j = j + 1 


' Increment j 


PWM Change Duty(j) 


' Set new duty ratio 


PORTB = CCPR1L 


' Send value of CCPR1L to PORTB 


wend 




end. 





6.6 Hardware U ART module (RS-232 Communication) 

The easiest way to transfer data between microcontroller and some other device, e.g. PC or other 
microcontroller, is the RS-232 communication (also referred to as EIA RS-232C or V.24). RS232 is a 
standard for serial binary data interchange between a DTE (Data terminal equipment) and a DCE (Data 
communication equipment), commonly used in personal computer serial ports. It is a serial asynchronous 
2-line (Tx for transmitting and Rx for receiving) communication with effective range of 10 meters. 

Microcontroller can establish communication with serial RS-232 line via hardware UART (Universal 
Asynchronous Receiver Transmitter) which is an integral part of PIC16F87X microcontrollers. UART 
contains special buffer registers for receiving and transmitting data as well as a Baud Rate generator for 
setting the transfer rate. 

This example shows data transfer between the microcontroller and PC connected by RS-232 line interface 
MAX232 which has role of adjusting signal levels on the microcontroller side (it converts RS-232 voltage 
levels +/- 10V to TTL levels 0-5V and vice versa). 
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Our following program example illustrates use of hardware serial communication. Data received from PC 
is stored into variabledat and sent back to PC as confirmation of successful transfer. Thus, it is easy to 
check if communication works properly. Transfer format is 8N1 and transfer rate is 2400 baud. 



program USART_Echo 



dim dat as byte 



main : 



USART_Init (2400) 



' Initialize US ART module 



while true 






if USART Data 


Ready = 1 then 


' If data is received 


dat = USART 


Read 


' Read the received data 


USART Write 


(dat) 


' Send data via USAUT 


end if 






wend 






end. 







In order to establish the communication, PC must have a communication software installed. One such 
communication terminal is part of mikroBasic IDE. It can be accessed by clicking Tools > Terminal from 
the drop-down menu. Terminal allows you to monitor transfer and to set all the necessary transfer 
settings. First of all, we need to set the transfer rate to 2400 to match the microcontroller's rate. Then, 
select the appropriate communication port by clicking one of the 4 available (check where you plugged 
the serial cable). 

After making these adjustments, clicking Connect starts the communication. Type your message and click 
Send Message - message will be sent to the microcontroller and back, where it will be displayed on the 
screen. 

Note that serial communication can also be software based on any of 2 microcontroller pins - for more 
information, check the Chapter 9: Communications. 



Chapter 7: Examples with Displaying Data 



• Introduction 

• 7.1 LED Diode 

• 7,2 Seven-Segment Display 

• 7.3 LCD Display, 4-bit and 8-bit Interface 

• 7.4 Graphical LCD 

• 7.5 Sound Siqnalization 



Introduction 

Microcontrollers deal very well with O's and l's, but humans do not. We need indicator lights, numbers, 
letters, charts, beepers... In order to comprehend the information presented quicker and better, we need 
that information to be displayed to us in many different ways. In practice, human - machine 
communication can require substantial (machine) resources, so it is sometimes better to dedicate an 
entire microcontroller to that task. This device is then called the Human - Machine Interface or simply 
HMI. The second microcontroller is then required to get the human wishes from HMI, "do the job" and put 
the results back to HMI, so that operator can see it. 

Clearly, the most important form of communication between the microcontroller system and a man is the 
visual communication. In this chapter we will discuss various ways of displaying data, from the simplest 
to more elaborate ones. You'll see how to use LED diodes, Seven-Segment Displays, character- and 
graphic LCDs. We will also consider using BASIC for sound signalization necessary in certain applications. 

Just remember: the more profound communication you wish to be, the more MCU resources it'll take. 

7.1 LED Diode 

One of the most frequently used components in electronics is surely the LED diode (LED stands for Light 
Emitting Diode). Some of common LED diode features include: size, shape, color, working voltage (Diode 
voltage) Ud and electric current Id. LED diode can be round, rectangular or triangular in shape, although 
manufacturers of these components can produce any shape needed for specific purposes. Size i.e. 
diameter of round LED diodes ranges from 3 to 12 mm, with 3-5 mm sizes most commonly used. 
Common colors include red, yellow, green, orange, blue, etc. Working voltage is 1.7V for red, 2.1V for 
green and 2.3 for orange color. This voltage can be higher depending on the manufacturer. Normal 
current Id through diode is 10 mA, while maximal current reaches 25 mA. High current consumption can 
present problem to devices with battery power supply, so in that case low current LED diode (Id ~ 1-2 
mA) should be used. For LED diode to emit light with maximum capacity, it is necessary to connect it 
properly or it might get damaged. 




The positive pole is connected to anode, while ground is connected to cathode. For matter of 
differentiating the two, cathode is marked by mark on casing and shorter pin. Diode will emit light only if 
current flows from anode to cathode; in the other case there will be no current. Resistor is added serial to 
LED diode, limiting the maximal current through diode and protecting it from damage. Resistor value can 
be calculated from the equation on the picture above, where Ur represents voltage on resistor. For +5V 
power supply and 10 mA current resistor used should have value of 330'ft. 

LED diode can be connected to microcontroller in two ways. One way is to have microcontroller "turning 
on" LED diode with logical one and the other way is with logical zero. The first way is not so frequent 
(which doesn't mean it doesn't have applications) because it requires the microcontroller to be diode 
current source. The second way works with higher current LED diodes. 
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The following example toggles LEDs of PORTB every second. 



program LED Blinking 




main : 




TRISB = 0 


' PORTB is output 


PORTB = %11111111 


' Turn ON diodes on PORTB 


Delay_ms (1000) 


' Wait for 1 second 


PORTB = %00000000 


' Turn OFF diodes on PORTB 


Delay_ms (1000) 


' Wait for 1 second 


goto main 


' Endless loop 



end. 



7.2 Seven-Segment Displays 



Seven-segment digits represent more advanced form of visual communication. The name comes from the 
seven diodes (there is an eighth diode for a dot) arranged to form decimal digits from 0 to 9. Appearance 
of a seven-segment digit is given on a picture below. 




Towards the microcontroller pin 
controlling this segment 



As seven-segment digits have better temperature tolerance and visibility than LCD displays, they are 
very common in industrial applications. Their use satisfies all criteria including the financial one. They are 
commonly used for displaying value read from sensors, etc. 



One of the ways to connect seven-segment display to the microcontroller is given in the figure below. 
System is connected to use seven-segment digits with common cathode. This means that segments emit 
light when logical one is brought to them, and that output of all segments must be a transistor connected 
to common cathode, as shown on the picture. If transistor is in conducting mode any segment with 
logical one will emit light, and if not no segment will emit light, regardless of its pin state. 
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Bases of transistors Tl and T2 are connected to pinO and pinl of PORTA. Setting those pins turns on the 
transistor, allowing every segment from "a" to "h", with logical one on it, to emit light. If zero is on 
transistor base, none of the segments will emit light, regardless of the pin state. 

Using the previous scheme, we could display a sequence of nine digits like this: 



program seven_seg_onedigit 



dim i as byte 



' Function mask returns mask of parameter 'num' 



' for common cathode 7-seg. display 



sub function mask (dim num as byte) as byte 



select case num 



case 0 result = $3F 



case 1 result = $0( 



case 2 result = $5B 



case 3 result = $4F 



case 4 result = $6( 



case 5 result = $6D 



case 6 result = $7D 



case 7 result = $07 



case 8 result = $7F 



case 9 result = $6F 



end select 



end sub 



main : 



INTCON = 0 



Disable PEIE, INTE, RBIE, T0IE 



TRISA = 0 



TRISB = 0 



PORTB = 0 



PORTA = 2 



do 



for i = 0 to 9 



PORTB = mask(i) 
Delay_ms (1000) 
next i 



loop until false ' Endless loop 



end. 



Purpose of the program is to display numbers 0 to 9 on the ones digit, with 1 second delay. In order to 
display a number, its mask must be sent to PORTB. For example, if we need to display "1", segments b 
and c must be set to 1 and the rest must be zero. If (according to the scheme above) segments b and c 
are connected to the first and the second pin of PORTB, values 0000 and 0110 should be set to PORTB. 
Thus, mask for number "1" is value 0000 0110 or 06 hexadecimal. The following table contains 
corresponding mask values for numbers 0-9: 



Digit 


Seg.h 


Seg. g 


Seg.f 


Seg. e 


Seg.d 


Seg. c 


Seg.b 


Seg. a 


HEX 


0 


0 


0 


1 


1 


1 


1 


1 


1 


$3F 























1 


0 


0 


0 


0 


0 


1 


1 


0 


$06 


2 


0 


1 


0 


1 


1 


0 


1 


1 


$5B 


3 


0 


1 


0 


0 


1 


1 


1 


1 


$4F 


4 


0 


1 


1 


0 


0 


1 


1 


0 


$66 


5 


0 


1 


1 


0 


1 


1 


0 


1 


$6D 


6 


0 


1 


1 


1 


1 


1 


0 


1 


$7D 


7 


0 


0 


0 


0 


0 


1 


1 


1 


$07 


8 


0 


1 


1 


1 


1 


1 


1 


1 


$7F 


9 


0 


1 


1 


0 


1 


1 


1 


1 


$6F 



You are not, however, limited to displaying digits. You can use 7seg Display Decoder, a built-in tool of 
mikroBasic, to get hex code of any other viable combination of segments you would like to display. 



But what do we do when we need to display more than one digit on two or more displays? We have to 
put a mask on one digit quickly enough and activate its transistor, then put the second mask and activate 
the second transistor (of course, if one of the transistors is in conducting mode, the other should not 
work because both digits will display the same value). The process is known as "multiplexing": digits are 
displayed in a way that human eye gets impression of simultaneous display of both digits - actually only 
one display emits at any given moment. 

Now, let's say we need to display number 38. First, the number should be separated into tens and ones 
(in this case, digits 3 and 8) and their masks sent to PORTB. The rest of the program is very similar to 
the last example, except for having one transition caused by displaying one digit after another: 



program seven seg twodigits 






dim v as byte 






dim porl as byte 






dim por2 as byte 






sub procedure interrupt 






begin 






if v = 0 then 






PORTB = por2 ' Send 


mask of tens 


to PORTB 


PORTA = 1 ' Turn 


on 1st Iseq, 


turn off 2nd 


v = 1 






else 






PORTB = porl ' Send 


mask of ones 


to PORTB 



PORTA 


= 2 


' Turn on 2nd 7seg, turn off 1st 


v = 0 






end if 






TMRO = 0 




' Clear TMRO 


INTCON = 


$20 


' Clear TMROIF and set TMROIE 


end sub 






main : 






OPTION REG 


= $80 


' Pull-up resistors 


TRISA 


0 


' PORTA is output 


TRISB 


0 


' PORTB is output 


PORTB 


0 


' Clear PORTB (wake sure LEDs are off) 


PORTA 


0 


' Clear PORTA (make sure both displays are off) 


TMRO 


0 


' Clear TMRO 


porl 


= $7F 


' Mask for '8' (check the table above) 


por2 


= $4F 


' Mask for '3' (check the table above) 


INTCON 


= $A0 


' Enable TO IE 



while true 


' Endless loop, wait for interrupt 


nop 




wend 




end. 





The multiplexing problem is solved for now, but your program probably doesn't have a sole purpose of 
printing constant values on 7seg display. It is usually just a subroutine for displaying certain information. 
However, this approach to printing data on display has proven sto be very convenient for more 
complicated programs. You can also move part of the program for refreshing the digits (handling the 
masks) to the interrupt routine. 

The following example increases variable /' from 0 to 99 and prints it on displays. After reaching 99, 
counter begins anew. 



program seven_seg_counting 



dim i as byte 

dim j as byte 

dim v as byte 

dim porl as byte 

dim por2 as byte 



' This function returns masks 



' for common cathode 7-seg display 



sub function mask (dim num as byte) as byte 



select case num 



case 0 result = $3F 



case 1 result = $0( 



case 2 result = $5B 



case 3 result = $4F 



case 4 result = $66 



case 5 result = $6D 



case 6 result = $7D 



case 7 result = $07 



case 8 result = $7F 



case 9 result = $6F 



end select 



end sub 



sub procedure interrupt 










if v = 0 then 










PORTB = por2 


' Prepare 


mask 


for digit 




PORTA = 1 


' Turn on 


1st, 


turn off 2nd 


7seg 


v = 1 










else 










PORTB = porl 


' Prepare 


mask 


for digit 




PORTA = 2 


' Turn on 


2nd, 


turn off 1st 


7seg 


v = 0 










end if 










TMRO = 0 










INTCON = $20 










end sub 










main : 










OPTION REG = $80 










por2 = $3F 











j = 0 




TMRO = 0 




INTCON = $A0 


' Disable PEIE, INTE, RBIE, TOIE 


TRISA = 0 




TRISB = 0 




PORTB = 0 




PORTA = 0 




do 




for i = 0 to 99 


' Count from 0 to 99 


' Prepare ones 


digi t 


j = i mod 10 




porl = mask(j) 




' Prepare tens 


digi t 


j = (i div 10) 


mod 10 


por2 = mask ( j ) 





Delay_ms (1000) 



next i 



loop until false 



end. 



In the course of the main program, programmer doesn't need to worry of refreshing the display. Just call 
the subroutine mas/cevery time display needs to change. 

7.3 LCD Display, 4-bit and 8-bit Interface 

One of the best solutions for devices that require visualizing the data is the "smart" Liquid Crystal Display 
(LCD). This type of display consists of 7x5 dot segments arranged in rows. One row can consist of 8, 16, 
20, or 40 segments, and LCD display can have 1, 2, or 4 rows. 
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Example of connecting LCD display 



backlight 




LCD connects to microcontroller via 4-bit or 8-bit bus (4 or 8 lines). R/W signal is on the ground, because 
communication is one-way (toward LCD). Some displays have built-in backlight that can be turned on 
with RD1 pin via PNP transistor BC557. 



Our following example prints text on LCD via 4-bit interface. Assumed pin configuration is default. 



program LCD default test 




dim Text as char [20] 




main : 




TRISB = 0 


' PORTB is output 


LCD Init(PORTB) 


' Initialize LCD at PORTB 


LCD Cmd(LCD CURSOR OFF) 


' Turn off cursor 


Text = "mikroelektronika" 




LCD_Out(l, 1, Text) 


' Print text at LCD 


end. 





Our second example prints text on LCD via 8-bit interface, with custom pin configuration. 



program Lcd8_def ault_test 



dim text as char [20] 



main : 




TRISB = 0 


' PORTB is output 


TRISD = 0 


' PORTD is output 


Lcd8 Init(PORTB, PORTD) 


' Initialize LCD at PORTB and PORTD 


Lcd8 Cmd(Lcd CURSOR OFF) 


' Turn off cursor 


text = "mikroElektronika" 




Lcd8 Out(l, 1, text) 


' Print text at LCD 


end. 
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7.4 Graphical LCD (PIC18 only) 



Most commonly used Graphical LCD (GLCD) has screen resolution of 128x64 pixels. This allows creating 
more elaborate visual messages than usual LCD can provide, involving drawings and bitmaps. 

The following figure shows GLCD HW connection by default initialization (using GLCD_LCD_Init routine); 
if you need different pin settings, refer to GLCD_LCD_Config. 
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BASIC offers a comprehensive library for GLCD - refer to Chapter 5: Built-in and Library Routines for 
more information. Our following example demonstrates the possibilities of GLCD and the mentioned 
library. Note that the library works with PIC18 only. 



program GLCD_test 



For PIC18 



include "GLCD_128x64 .pbas" ' You need to include GLCD_128x64 library 



dim text as string [25] 



main : 



PORTC = 0 



PORTB = 0 



PORTD = 0 



TRISC = 0 



TRISD = 0 



TRISB = 0 



GLCD_LCD_Init (PORTC, PORTD) ' default settings 



GLCD_Set_Font ( FONT_NORMALl ) 



while true 



GLCD Clear Screen 



' Draw Circles 



GLCD Clear Screen 



text = "Circle" 



GLCD_Put_Text (0, 7, text, NONINVERTED_TEXT) 



GLCD_Circle (63, 31, 10) 



Delay_Ms (4000) 



' Draw Rectangles 



GLCD Clear Screen 



text = "Rectangle" 



GLCD_Put_Text (0, 7, text, NONINVERTED_TEXT) 



GLCD_Rectangle (10, 0, 30, 35) 



Delay_Ms (4000) 
GLCD Clear Screen 



' Draw Lines 



GLCD Clear Screen 



text = "Line" 



GLCD_Put_Text (55, 7, text, NONINVERTED_TEXT) 



GLCD_Line(0, 0, 127, 50) 



GLCDJLine (0, 63, 50, 0) 



Delay_Ms (5000) 



' Fonts Demo 



GLCD Clear Screen 



text = "Fonts DEMO" 



GLCD Set Font (FONT_TINY) 



GLCD_Put_Text (0, 4, text, NONINVERTED_TEXT) 



GLCD_Put_Text (0, 5, text, INVERTED_TEXT) 



GLCD_Set_Font (FONT_BIG) 



GLCD Put Text(0, 6, text, NON INVERTED TEXT) 



GLCD_Put_Text (0, 7, text, INVERTED_TEXT) 
Delay_ms (5000) 
wend 

end. 



7.5 Sound Signalization 

Some applications require sound signalization in addition to visual or instead of it. It is commonly used to 
alert or announce the termination of some long, time-consuming process. The information presented by 
such means is fairly simple, but relieves the user from having to constantly look into displays and dials. 

BASIC'S Sound library facilitates generating sound signals and output on specified port. We will present a 
simple demonstration using piezzo speaker connected to microcontroller's port. 



program Sound 






' The following three 


tones are calculated 


for 4MHz crystal 


sub procedure Tonel 






Sound_Play (200, 200) 


' Period = 2ms <- 


=> 500Hz, Duration = 200 periods 


end sub 






sub procedure Tone2 






Sound_Play (180, 200) 


' Period = 1 . 8ms 


<=> 555Hz 


end sub 







sub procedure Tone 3 




Sound_Play (160, 200) 


' Period = 1.6ms <=> 625Hz 


end sub 




sub procedure Melody 


' Plays the melody "Yellow house" 


Tonel 




Tone2 




Tone3 




Tone3 




Tonel 




Tone2 




Tone3 




Tone3 




Tonel 




Tone2 





Tone3 



Tonel 



Tone2 



Tone3 



Tone3 



Tonel 



Tone2 



Tone3 



Tone3 



Tone3 



Tone2 



Tonel 



end sub 



main : 



TRISB = $F0 



Sound_Init (PORTB, 2) ' Connect speaker on pins RB2 and GND 



Sound_Play (50, 100) 



while true 



if Button (PORTB, 7, 1, 1) then ' RB7 plays Tonel 



Tonel 



end if 



while TestBit (PORTB, 7 ) = 1 ' Wait for button to be released 



nop 



wend 



if Button (PORTB, 6, 1, 1) then ' RB6 plays Tone2 



Tone2 



end if 



while TestBit (PORTB, 6) = 1 ' Wait for button to be released 



nop 



wend 



if Button (PORTB, 5, 1, 


1 ) then 


' RB5 plays Tone3 


Tone3 






end if 






while TestBit (PORTB, 


5) = 1 


' Wait for button to be released 


nop 






wend 






if Button (PORTB, 4, 1, 


1 ) then 


' RB4 plays Melody 


Melody 






end if 






while TestBit (PORTB, 


4) = 1 


' Wait for button to be released 


nop 






wend 






wend 






end. 






Chapter 8: Examples with Memory and Storage Media 



• Introduction 

• 8.1 EEPROM Memory 



• 8.2 Flash Memory 

• 8.3 Compact Flash 



Introduction 



There is no program on this world that doesn't interact with memory in some way. First, during its 
execution, it retains the operational data from, uses or alters it, and puts it back into the program 
memory. Second, it is often necessary to store and handle large amount of data that can be obtained 
from various sources, whether it is the car engine temperature acquisition data or some bitmap image to 
be displayed on the GLCD. In this chapter we will focus on the latter problem, i.e. we'll go through the 
techniques of manipulating data on the so-called memory storage devices and systems. 

8.1 EEPROM Memory 

Data used by microcontroller is stored in the RAM memory as long as there is a power supply present. If 
we need to keep the data for later use, it has to be stored in a permanent memory. An EEPROM 
(E 2 PROM), or Electrically-Erasable Programmable Read-Only Memory is a non-volatile storage chip, 
commonly used with PIC microcontrollers for this purpose. An EEPROM can be programmed and erased 
multiple times electrically - it may be erased and reprogrammed only a certain number of times, ranging 
from 100,000 to 1,000,000, but it can be read an unlimited number of times. 

8.1.1 Internal EEPROM 

Some PIC microcontrollers have internal EEPROM allowing you to store information without any external 
hardware. 

BASIC has a library for working with internal EEPROM which makes writing and reading data very easy. 
Library functionEEPROM Read reads data from a specified address, while library 
procedure EEPROM_Write writes data to the specified address. 

Note: Be aware that all interrupts will be disabled during execution of eeprom write routine (gie bit 
of intcon register will be cleared). Routine will set this bit on exit. Ensure minimum 20ms delay between 
successive use of routines EEPROM Write andEEPROM_Read. Although EEPROM will write the correct 
value, EEPROM Read might return undefined result. 

In our following example, we will write a sequence of numbers to successive locations in EEPROM. 
Afterwards, we'll read these and output to PORTB to verify the process. 



program EEPROM_test 



dim i as byte 
dim j as byte 



main : 



TRISB = 0 



for i = 0 to 20 



EEPROM_Write (i, i + 6) 



next i 



Delay_ms (30) 



for i = 0 to 20 



PORTB = EEPROM_Read( 



for j = 0 to 200 



Delay^us (500) 



next j 



next i 



end. 



8.1.2 Serial EEPROM 



Occasionally, our needs will exceed the capacity of PIC's internal EEPROM. When we need to store a 
larger amount of data obtained by PIC, we have an option of using external serial EEPROM. Serial means 
that EEPROM uses one of the serial protocols (I2C, SPI, microwire) for communication with 
microcontroller. In our example, we will work with EEPROM from 24Cxx family which uses two lines and 
I2C protocol for communication with MCU. 
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Serial EEPROM connects to microcontroller via SCL and SDA lines. SCL line is a clock for synchronizing 
the transfer via SDA line, with frequency going up to 1MHz. 
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I2C communication allows connecting multiple devices on a single line. Therefore, bits Al and AO have an 
option of assigning addresses to certain I2C devices by connecting the pins Al and AO to the ground and 
+ 5V (one I2C line could be EEPROM on address $A2 and, say, real time clock PCF8583 on address $A0). 
R/W bit of address byte selects the operation of reading or writing data to memory. More detailed data on 
I2C communication can be found in the technical documentation of any I2C device. 

Our following program sends data to EEPROM at address 2. To verify transfer, we'll read data via I2C 
from EEPROM and send its value to PORTD. For more information on I2C Library consult Chapter 5: Built- 
in and Library Routines. 



program EE PROM test 




dim EE adr as byte 




dim EE data as byte 




dim j j as word 




main : 




I2C_init (100000) 


' Initialize full master mode 


TRISD = 0 


' PORTD is output 


PORTD = Sff 


' Initialize PORTD 


I2C_Start 


' Issue I2C start signal 


I2C Wr($a2) 


' Send byte via I2C (command to 24c02) 


EE adr = 2 




I2C Wr (EE adr) 


' Send byte (address of EEPROM) 


EE data = Saa 




I2C Wr (EE data) 


' Send data (data that will be written) 


I2C_Stop 


' Issue I2C stop signal 


for jj = 0 to 65500 


' Pause while EEPROM writes data 



nop 




next j j 




I2C_Start 


' Issue I2C start signal 


I2C Wr($a2) 


' Send byte via I2C 


EE adr = 2 




I2C Wr (EE adr) 


' Send byte (address for EEPROM) 


I2C Repeated Start 


' Issue I2C repeated start signal 


I2C_Wr ($a3) 


' Send byte (request data from EEPROM) 


EE data = I2C Rd(l) 


' Read the data 


I2C_Stop 


' Issue I2C Stop signal 


PORTD = EE data 


' Print data on PORTD 


noend : 


' Endless loop 


goto noend 




end. 





8.2 Flash Memory 

Flash memory is a form of EEPROM that allows multiple memory locations to be erased or written in one 
programming operation. Normal EEPROM only allows one location at a time to be erased or written, 
meaning that Flash can operate at higher effective speeds when the systems using it read and write to 
different locations at the same time. 



Flash memory stores information on a silicon chip in a way that does not need power to maintain the 
information in the chip. This means that if you turn off the power to the chip, the information is retained 
without consuming any power. In addition, Flash offers fast read access times and solid-state shock 
resistance. These characteristics make it very popular for microcontroller applications and for applications 
such as storage on battery-powered devices like cell phones. 

Many modern PIC microcontrollers utilize Flash memory, usually in addition to normal EEPROM storage 
chip. Therefore, BASIC provides a library for direct accessing and working with MCU's 
Flash. Note: Routines differ for PIC16 and PIC18 families, please refer to Chapter 5: Built-in and Library 
Routines. 

The following code demonstrates use of Flash Memory library routines: 



' for PI CI 8 




program flash picl8 test 




const FLASH ERROR = $FF 




const FLASH OK = $AA 




dim toRead as byte 




dim i as byte 




dim toWrite as byte [64] 




main : 




TRISB = 0 


' PORTB is output 


for i = 0 to 63 


' initialize array 



toWrite[i] = i 




next i 




r lasn Write (9ODUO, towrite) 
OxODOO 


' write contents of the array to the address 


' verify write 




PORTB = 0 


' turn off PORTB 


toRead = FLASH ERROR 


' initialize error state 


for 1 = 0 to 63 




toRead = Flash_Read (SODOO+i) 

OxODOO 


' read 64 consecutive locations starting from 


if toRead <> toWrite[i] then 


' stop on first error 


PORTB = FLASH ERROR 


' indicate error 


Delay ms (500) 




else 




PORTB = FLASH OK 


' indicate there is no error 


end if 




next i 




end. 





For PIC16 family, the corresponding code looks like this: 



for PIC16 



program f lash_picl 6_test 



const FLASH ERROR = $ FF 



const FLASH OK = $AA 



dim toRead as word 



dim i as word 



' PORTB is output 



' write the value of i starting from the address 



main : 



TRLSB = 0 



for i = 0 to 63 



Flash_Write (i+$0A00, i) 

OxOAOO 



next i 



' verify write 



PORTB = 0 


' turn off PORTB 




toRead = FLASH ERROR 


' initialize error state 




for i=u to oj 






toRead — Hash Read ( 9OAOO+1 ) 
OxOAOO 


' Read 64 consecutive locations 


starting from 


if toRead <> i then 


' Stop on first error 




1=1+ 50A00 
location 


' i contains the address of the 


erroneous 


PORTB = FLASH ERROR 


' indicate error 




Delay_ms (500) 






else 






PORTB = FLASH OK 


' indicate there is no error 




end if 






next i 






end. 







8.3 Compact Flash 

Compact Flash (CF) was originally a type of data storage device, used in portable electronic devices. As a 
storage device, it typically uses Flash memory in a standardized enclosure. At present, the physical 
format is used in handheld and laptop computers, digital cameras, and a wide variety of other devices, 
including desktop computers. Great capacity (8MB ~ 8GB, and more) and excellent access time of 
typically few microseconds make them very attractive for microcontroller applications. 

Flash memory devices are non-volatile and solid state, and thus are more robust than disk drives, 
consuming only about 5% of the power required by small disk drives. They operate at 3.3 volts or 5 
volts, and can be swapped from system to system. CF cards are able to cope with extremely rapid 



changes in temperature - industrial versions of flash memory cards can operate at a range of -45°C to 
+85°C. 



BASIC includes a library for accessing and handling data on Compact Flash card. In CF card, data is 
divided into sectors, one sector usually comprising 512 bytes (few older models have sectors of 256B). 
Read and write operations are not performed directly, but successively through 512B buffer. These 
routines are intented for use with CF that have FAT16 and FAT32 file system. Note: routines for file 

handling (CF_File_Write_Init, CF_File_Write_Byte, CF_File_Write_Complete) Can Only be Used 

with FAT16 file system, and only with PIC18 family! 



Sector Access 



Byte Address 512 
1024 
1536 



SeclOf 1 



S&clof 2 



512 bytes 



File accessing routines can write file. File names must be exactly 8 characters long and written in 
uppercase. User must ensure different names for each file, as CF routines will not check for possible 
match. Before write operation, make sure you don't overwrite boot or FAT sector as it could make your 
card on PC or digital cam unreadable. Drive mapping tools, such as Winhex, can be of a great assistance. 



+5V 




«5 



Compact Hash Card 



Compact Flash Connector 
(TOP VIEW) 



Here's an example for using Compact Flash card from BASIC. A set of files is written on CF card. This can 
be checked later by plugging the CF card on a PC or a digital camera. Observe the way the file is being 
written: 

• First, write-to-file is initialized, telling to PIC that all 

consecutive CF_File_Write_Byte instructions will write to a new file; 

• Then, actual write of data is performed (with CF_Fiie_write_Byte); 

• Finally, finish of write-to-file cycle is signallized with call to CF_File_Write_Complete routine. At 
that moment, the newly created file is given its name. 



program CompactFlash File 




' for PIC18 




dim il as word 




dim index as byte 




dim f name as char [ 9 ] 




dim ext as char [ 4 ] 




sub procedure Init 




TRISC = 0 


' PORTC is output. We'll use it only to signal 
' end of our program . 


CF Init Port(PORTB, PORTD) 


' Initialize ports 


do 




nop 




loop until CF DETECT (PORTB) = true 


' Wait until CF card is inserted 



Delay ms(50) ' Wait for a while until the card is stabilized 



end sub ' i.e. its power supply is stable and CF card 



' controller is on 



main : 



ext = "txt" 



index = 0 



while index < 5 



PORTC = 0 



Init 



PORTC = index 



CF_File_Write_Init (PORTB, PORTD) 

file 



il = 0 



while il < 50000 



CF_File_Write_Byte (PORTB, PORTD, 
inc ( il ) 
wend 



fname = "RILEPROX" 

case 



File extensions will be "txt" 



Index of file to be written 



' Initialization for writing to new 



8+index) ' Writes 50000 bytes to file 



' Must be 8 character long in upper 



rname L o J - 4 o 

name 


+ index 


' Ensure that files have different 


CF File Write 


Complete (PORTB, PORTD, fname, 


ext) ' Close the file 


Inc (index) 






wend 






PORTC = $FF 






end. 







If you do not wish to use your CF card in PCs and digicams but ruther as a simple storage device for your 
PIC MCU only, you can then ignore the entire FAT system and store data directly to CF memory sectors: 



program cf test 




dim i as word 




main : 




TRISC = 0 


' PORTC Is output 


CF Init Port (PORTB, PORTD) 


' Initialize ports 



do 



nop 



loop until CF_Detect (PORTB) = true 



Delay_ms (500) 



CF Write_Init (PORTB, PORTD, 590, 1) 



for i = 0 to 511 



CF_Write_Byte (PORTB, PORTD, i + 11) 



next i 



PORTC = $FF 



Delay_ms (1000) 



CF_Read_Init (PORTB, PORTD, 590, 1) 
590 



for i = 0 to 511 



PORTC = CF Read Byte (PORTB, PORTD) 



' Wait until CF card is inserted 



' Initialize write at sector address 



of 1 sector (512 bytes) 



Write 512 bytes to sector (590) 



' Initialize write at sector address 



of 1 sector (512 bytes) 



' Read 512 bytes from sector (590) 



and display it on PORTC 



Delay_ms (1000) 



next i 



end. 
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Introduction 



When you start writing real-life programs for PIC, you may soon find yourself having a "lack of space" 
feeling, that you need just a few more pins and a couple of dozens of bytes to do the job. You might want 
to solve this problem by transferring to bigger PIC, and the problem will be solved... for a little while. Or, 
you just happened to have found a beautiful, brand-new humidity sensor that does "all the job by itself", 
leaving you just to connect it to PIC and pick up the data... That is, if you know how to do that. If you've 
come up with these or similar problems, it really is time for you to teach your PIC and yourself some 
communication lessons. 

There are many ways for two machines to communicate these days, and PICs are generally well equipped 
for the task. Depending on the job to be done, data exchange - what communication basically is - can be 
done in a fairly simple manner, such as the SPI communication, but can extend to an entire network of 
various devices - MCUs, PCs, cameras, "intelligent" sensors, etc. With increased demands, rules of device 
behaviour must encompass a wider set of possible scenarios and therefore protocols dramatically grow in 
complexity (CAN, for instance). 

Consider your needs carefully before jumping to CAN-driven solutions. There are different communication 
methods, offering lot of possibilities at varying levels of complexity. The rule of "sacred simplicity" 
remains here as well: do not use more complex communication tools than you really need to! 

In this chapter, you'll get yourself acquainted with various means of communication that are being used 
by the PIC MCUs, and the ways to access and extend them from the BASIC programming language. You 
may have already noticed that some of the communication devices also have their software counterparts, 
meaning you can have the same communication functionality that is achieved through a set of software 
routines that can be used through the BASIC programming language. You should be using software 
communication when you have utilized all the real (hardware) communication resouces but still need an 
extra communication line. 

9.1 USARTand Software UART 
9.1.1 USART 

USART stands for the Universal Synchronous/Asynchronous Receiver/Transmitter. It may sound 
mysterious, but actually this is the most frequent communication device used today throughout the 
computer world: microcontrollers, (some) cell phones, barcode readers, PCs... 

First, let's see what all those words stand for: 

• Universal means that it can be used with a wide scope of devices 

• Synchronous/ Asynchronous shows whether or not the devices that communicate with each 
other require an external synchronization line (the clock). This device, present in most PICs, can 
do it both way. The Asynchronous mode (without the common clock) is easier to implement, 
although it is generally slower than the synchronous. It is also the older way - older versions of 
PIC did not have the possibility of working in synchronous mode, therefore the devices they had 
were more appropriately named as UART (without S) 

• Receiver/Transmitter means that this device can receive and transmit (send) data 
simultaneously. It is also called the two-way or duplex communication. 



The USART itself can be set to communicate in many ways. The most frequent one is, of course, the one 
that helps your PIC talk to the PC. This old standard, known as the RS232, is understood by the 99.9% of 
PCs, although is lately being superseded by the USB standard. You can see from the image below how to 
connect your PIC to PC. You have to add an extra IC in between (MAX232) that simply adjusts the USART 
voltage levels to those required by the RS232 standard. 




As you can see, you need two wires for this communication: one to receive data (named Rx), and the 
other one to send (transmit) it (Tx). Here follows a simple BASIC program that gets (receives) data from 
the PC and sends it back to it: 



program RS232com 



dim received_byte as byte 



USART Init(2400) ' Initialize USART module 



while true 



if USART Data Ready = 1 then 


' If data is received 


received byte = USART Read 


' read received data, 


USART Write (Received byte) 


' send it back via USART 


end if 




wend 




end. 





When you compile this program and write it into the PIC, you can open some communication terminal 
program on your PC, such as Windows Terminal, set up the connection parameters, open connection, and 
send some characters to PIC. If everything is OK, it will send you that same data back. 

9.1.2 Software UART 

If you have used up hardware USART and need another communication channel (for example if you wish 
to communicate with two PCs) or you do not have an USART device at all (on smaller PICs), you can use 
the software UART. As its name implies, it uses a set of software routines to simulate the real, hardware 
UART device. Working with software UART is almost the same as it is with USART, the only difference 
being the initialization. You can see it from the following example: 



program soft uart test 




dim received byte as byte 




dim rec ok as byte 




main : 




Soft UART Init(PORTB, 1, 2, 2400) 


' initialize software UART 







' you have to tell PIC which pins 






' to use as Rx and Tx 


while true 






do 






received byte = Soft UART 


Read (Rec ok) 


' read received data 


loop until rec ok 






Soft UART write (received 


byte) 


' send data via UART 


wend 






end. 







9.2 SPI and Software SPI 

SPI or Serial Peripheral Interface is probably the simplest communication style between your PIC and the 
outside world. It is, however, limited to communicating between the chips, meaning that cables have to 
be as short as possible. The basic idea is to allow for two chips to exchange information in a master-slave 
manner, the master initializing communication, selecting the slave to communicate with, and providing a 
clock for synchronization. In most cases your PIC will be the master and will ask other, less "intelligent" 
chips for some data, issue commands to them, etc. 

The given example uses BASIC'S SPI routines to access the max7219 chip, which is used to drive up to 
eight 7-segment displays. All this is achieved by using a single pin from PIC (RC1) for communication. 
For chip select and clock transfer purposes, pins SDO, SDI and SCK on both PICs have to be inter- 
connected as well. 



program SPI 



include "m7219 .pbas" 



dim i as byte 




main : 




SPI Init 


' Standard configuration 


TRISC = TRISC and $FD 




max7219 init 


' Initialize max7219 


PORTC.l = 0 


' Select max7219 


SPI Write (1) 


' Send address (1) to max7219 


SPI Write (7) 


' Send data (7) to max7219 


PORTC.l = 0 


' Deselect max7219s 


end. 





And this is how the m72i9.bas module looks like: 



module m7 2 1 9 



sub procedure max7219_init 



PORTC = PORTC and $FD ' SELECT MAX 



SPI_Write ($09) 



SPI_Write ($FF) 



PORTC = PORTC or 2 



PORTC = PORTC and $ FD 



SPI_Write ($0A) 



SPI_Write ($0F) 



PORTC = PORTC or 2 



PORTC = PORTC and $FD 



SPI_Write ($0B) 



SPI_Write ($07) 



PORTC = PORTC or 2 



PORTC = PORTC and $ FD 



SPI_Write ($0C) 



SPI_Write ($01) 



PORTC = PORTC or 2 



' BCD mode for digit decoding 



DESELECT MAX 



SELECT MAX 



' Segment luminosity intensity 



DESELECT MAX 



SELECT MAX 



' Display refresh 



DESELECT MAX 



SELECT MAX 



' Turn on the display 



DESELECT MAX 



PORTC = PORTC and $FD ' SELECT MAX 



SPI_Write ($00) 



SPI_Write ($FF) ' No test 



PORTC = PORTC or 2 ' DESELECT MAX 



end sub 



end. 



Using software SPI is similar to any software communication - the software contained in BASIC routines 
simulates the real device. Having that in mind, you must be careful with initialization routines. Here's an 
example that uses software SPI to "talk to" another chip (the LTC1290 multiple channel 12-bit A/D 
converter), this time over the RD1 pin. 



microcontroller : P18F452 



' Project: LTC1290 



This code demonstrates usinq software routines for SPI communication. 



' Also, this example demonstrates working with ADC LTC12 90 . 



' CS pin LTC1290 should be connnected to RD1 



' and SDO , SDL, SCKL pins should be appropriately connected . 



' Result of AD conversion is printed on LCD display . 



Tested on 16F877A and 18F452 



program ltcl2 90 



dim lowres as byte 



dim highres as byte 



dim t as char [17] 



' Formats and prints result on LCD 



sub procedure Display_ADval 



dim tmp as word 



dim value as longint 



tmp = word ( (high_res « 4)) + word(low_res <b>>> 4) 



value = (5000*tmp) <b»> 12 



tmp = word (value) 



t[l]= 48 + word(tmp div 1000) 



t[3]= 48 + word((tmp div 100) mod 10) 



t[4]= 48 + word((tmp div 10) 


mod 


10) 


t [ 5 ] = 4 8 + word ( tmp mod 1 0 ) 






t[2]= 46 






t[0]= 5 




'length of the string is in the zero element 


LCD_out(2, 1, t) 






end sub 






main : 






PIE1 = 0 






INTCON = 0 




' disable interrupts 


TRISB = 0 




' designate portb as output 


LCD Init(PORTB) 




' initialize LCD on PORTB 


LCD Cmd(LCD CURSOR OFF) 




' LCD cursor off 


low res = 110 






high res = 1 






Display ADval 






Soft SPI Conf ig (PORTD, 7, 6, 


5) 




SetBit (PORTD, 1) 







ClearBit (TRISD, 1) 


' pin RD1 is output 


t = "mikroElektronika" 




LCD_Out(l, 1, t) 


' print "mikroElektronika" on LCD 


while true 




ClearBit (PORTD, 1) 


' select LTC1290 


high res = Soft SPI Read(255) 


' get upper byte of AD conversion 


low res = Soft SPI Read(O) 


' get 4 least significant bits of AD conversion 


SetBit (PORTD, 1) 


' deselect LTC1290 


Display ADval 


' format and print value on LCD 


Delay ms ( 1 ) 


' wait 1 ms before next conversion 


wend 




end. </b»x/b>» 





9.3 12C and Software I2C 
9.3.1 I2C 

I2C or PC stands for Inter-Integrated Circuit and is pronounced I-squared-C. This is another way chips 
(i.e. PICs) can communicate between themselves. It is simple, cheap, and somewhat slow (from the 
chip's point of view), and has been widely used for more than twenty years now. Similar to USART and 
SPI, the data is transferred in serial manner, i.e. bit-by-bit, through a single wire. Unlike the SPI, this 
standard uses only two bi-directional wires in total, one for data and one for the clock. It also allows for 
over 1000 chips to be inter-connected over only two wires, and it is designed to allow the chips to be 
safely added to or removed from the bus without turning off the power. This and the fact that it has been 
invented and supported by Philips, can explain such a popularity of this standard. 

From BASIC user's point of view, using I2C looks pretty much like using the SPI. You have to: 



• Initiate communication between ICs; 



• Read or write some data (in byte-sized chunks); 

• Terminate communication 



We will demonstrate this by connecting a 24c02 EEPROM to our PIC. Here is how to connect them: 
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And here's the program: 



Example of communication with 24c02 EEPROM 



program i2c_test 



dim EEadr as byte 



dim EEdata as byte 



dim j j as word 



main : 



l2C_init (100000) ' initialize full master mode 



TRISD = 0 



PORTD = $FF 



I2C Start 



I2C_Wr ($A2) 



EE adr = 2 



l2C_Wr (EE_adr) ' send byte (address for EEPROM) 



EE data = $AA 



l2C_Wr (EE_data) ' send data (data 



I2C_Stop ' issue 12C stop 



for jj = 0 to 65500 ' pause while EEPROM writes data 



nop 



next j j 



I2C Start 



l2C_Wr ($A2) 



EE adr = 2 



I2C_Wr (EE_adr) ' send byte (address for EEPROM) 



I2C Repeated Start ' issue I2C signal repeated start 



PORTD is output 



initialize PORTD 



issue 120 start signal 



send byte via 120 (command to 24c02) 



that will be written) 



signal 



issue I2C start signal 



send byte via 120 



I2C Wr($A3) 


' send byte (request data from EEPROM) 


EE data = I2C Rd(l) 


' read data 


I2C_Stop 


' issue I2C stop signal 


PORTD = EE data 


' show data on PORTD 


noend : 


' endless loop 


goto noend 




end. 





You can find more details on I2C routines' syntax in Chapter 5: Built-in and Library Routines, You 
shouldn't bother yourself too much about the meaning of 

the i2c_start and i2c_Repeated_start routines - that's the way your PIC performs the initialization of 
its I2C device. 

9.3.2 Software I2C 

Working with software I2C is very similar to working with the "real one". You can see it for yourself from 
the following example, which performs exactly the same thing as the previous one. 

*********************************************** 

' microcontroller P16F877A 
i 

' Project: soft_i2c_test 

' This project is designed to work with PIC 16F877A 

' with minor adjustments , it should work with any other PIC MCU 

' that has MSSP module. 



' This code demonstrates comunication with 24c02 EEPROM 



' connected to appropriate pins on PORTD. 



' After the byte is read, it is displayed on PORTC. 



i ****************************************************************************** 



program sof t_i2c_test 



dim Addr as byte 



dim EE_ByteOut as byte 



dim EE_ByteIn as byte 



main : 



TRISD = $FF 



TRISC = 0 



PORTC = $FF 



Addr = 2 



EE_ByteOut = $9F 



Soft_l2C_Conf ig (PORTD, 4,3) 



Soft I2C Start 



Soft_I2C_Write ($A2) 



Soft_I2C_Write (2) 



Soft_l2C_Write (EE_ByteOut) 



Soft_l2C_Stop 



PORTC = $B0 



Delay_ms (2000) 



Soft I2C Start 



Soft_l2C_Write ($A2) 



Soft_I2C_Write (2) 



Soft I2C Start 



Soft_I2C_Write ($A3) 



EE_ByteIn = Sof t_l2C_Read ( 0 ) 



Soft_I2C_Stop 



PORTC = EE_ByteIn 



end. 



' initialize I2C, 100 kHz elk, full master mode 



' issue I2C start signal 



' send byte via I2C (command to 24c02) 



' send byte (address of EEPROM location) 



' send data (data to be written) 



' issue I2C stop sinal 



' issue I2C start signal 



' send byte via I2C (command to 24c02 read cycle) 



' send byte (address of EEPROM location) 



' issue I2C signal repeated start 



' send byte (request data from EEPROM) 



' Read the data 



' display data on PORTC 



9.4 Manchester Code 



9.4.1 A Bit of Theory 

Manchester encoding is especially suitable for allowing your PIC to communicate with others over RF 
(Radio Frequency, wireless) communications and can be performed using the hardware or software 
UART. It is simple to encode /decode and has good error detection abilities, hence negating the need for 
the "check-summed" data. Manchester encoding is practical and fairly easy to implement. It is being used 
everywhere in the RF world, its most notable "customer" being the 802.3 Ethernet (wireless Ethernet) 
standard. This is a synchronous communication standard, meaning that keeping the clock rate stable and 
maintaining exact baudrate is essential when applying this type of communication. 

If you're a bit more interested in how the Manchester encoding works and why it's being used, read-on 
through this chapter. If you're anxious to put the things to work, skip this and go straight to the 
examples. 

In usual, wire-type communications world, encoding a stream of data is pretty straightforward. For 
example, in RS232, you have (usually) one start bit, 8 data bits, (optional) parity bit(s) and one stop bit. 
Data bits are sent as "high" or "low" signal levels. 

A 



High 

signal — 
level 



Low 
signal — 
level 




If you would try to send this data straightforward through the RF channel, you would encounter a number 
of problems. The biggest one is the existance of the DC component in the signal, meaning that if you 
integrate the voltage over time for, say, those 8 bits sent in previous example, you would get a non-zero 
(positive or negative) value. This means that if you want to send this data through the radio, you need a 
lot of power, even for short distances. Furthermore, when this kind of data reaches the receiver, it 
cannot, due to the principles on which it is been built, interpret it properly. Again, it's that DC component 
in the signal that represents the "obstruction". 



Manchester encoding solves this problem by treating the data (i.e. l's and 0's) not as signal (voltage, 
current) levels, but rather as a transition pattern between the levels. This means that "1" is coded as 
transition from high to low signal level, while the "0" is coded in the opposite way - as transition from low 
to high signal level. So, the data from the previous example, in Manchester encoding, looks like this 
(showing only the "data" portion of message): 



A 



High 

signal 

level 



Low 

signal 

level 



u u 



Time 



0 



1 0 



0 0 



0 0 



You can see that the voltage summary now remains zero no matter how much and what kind of data we 
are sending. 

If you wish to find out more on Manchester encoding, there's plenty of material about it on the Internet 

9.4.2 Manchester Code Examples 

in BASIC, Manchester encoding functions are implemented on top of the software UART library. Using 
them is similar to software UART, exept the necessity to re-synchronize the receiver side if there are too 
many errors. 

The first example is code for the transmit side of the link: 



microcontroller P18F452 



' Project RTX 



' This project is designed to work with PIC 18F452 



' with minor adjustments , it should work with any other PIC MCU 



' This code demonstrates how to send data using Manchester encoding 



f ******************************************************************************* 


program RF TX 




dim i as byte 




dim si as string [20] 




main : 




PORTB = 0 




TRISB = %00001110 




ClearBit (INTCON, GIE) 


' Disable interrupts 


Man Send Init (PORTB) 


' Initialize manchester sender 


while TRUE 




Man_Send ($0B) 


' Send start marker 


Delay_ms (100) 


' Wait for a while 


si = "mikroElektronika" 




for i = 1 to StrLen(sl) 




Man_Send (si [i] ) 


' Send char 


Delay_ms (90) 





next i 




Man_Send ($0E) 


' Send end marker 


Delay_ms (1000) 




wend 




end. 





As you can see, the transmit side is pretty straightforward. The receive side needs to have a little extra 
coding to provide the re-synchronization during data receive, if necessary. In BASIC, Manchester receive 
routines (Man_Receive_Config,Man_Receive_Init, Man Receive) are blocking calls. This means that PIC 
will wait until the task is performed (e.g. byte is received, synchronization achieved, etc.). Routines for 
receiving are limited to a baud rate scope from 340 ~ 560 bps. 



' microcontroller : P16F877A 



' Project: RRX 

' This project is designed to work with PIC 16F877A 

' with minor adjustments , it should work with any other PIC MCU 



' This code shows how to use manchester library for receiving data. 
' The example works in conjuction with transmitter which sends 
' the word "mikroElektronika" using Manchester encoding . 



program RRX 




dim ErrorFlag as byte 




dim ErrorCount as byte 




dim IdleCount as byte 




dim temp as byte 




dim LetterCount as byte 




main : 




errorCount = 0 




trisc = 0 


' ErrorFlag indicator 


portc — 0 




Man Receive Conf ig (PORTD, 6) 
synchronize it 


' Initialize receiver and try to 


LCD Init(PORTB) 


' Initialize LCD on PORTB 


while true 




do 


' Loop endlessly 



IdleCount = 0 



temp = Man Receive (ErrorFlag) 



if ErrorFlag then 



inc (errorCount) 



else 



portc = 0 



end if 



if errorCount > 20 then 



errorCount = 0 



portc = $AA 



Man_Receive_Init (PORTD) 



end if 



inc (IdleCount) 



if IdleCount > 18 then 



IdleCount = 0 



Man_Receive_Init (PORTD) 



end if 



loop until temp = $0B 



' Reset idle counter 



' Attempt byte receive 



' Clear error indicator 



' If there are too many errors 



try to syncronize the receiver again 



' Indicate error state 



' Synchronize receiver 



' If nothing is received after some time 



try to synchronize again 



' Synchronize receiver 



' End of message marker 



' Get the message 



if errorFlag = false then ' If no errorFlag then write the message 



LCD_Cmd (LCD_CLEAR) 



LetterCount = 0 



while LetterCount < 17 ' The message is 16 chars in size. 



inc (LetterCount) 



temp = Man Receive (ErrorFlag) 



if errorFlag = false then 



LCD_Chr_CP (temp) 



else 



inc (errorCount) 



end if 



wend 



temp = Man_Receive (ErrorFlag) 



if temp <> $0E then 



inc (errorCount) 



end if 



end if 



wend 
end. 



9.5 RS485 

RS232 is a well documented, simple, reliable, good-old standard that is still used a lot and will be so in 
the near future. You should certainly use it wherever and whenever possible. But what happens when it 
cannot do the job? This is primarily addressed to the cable length, i.e. distances it cannot cover. The 
answer is (or should be) RS485. Together with the RS422, it is one of the most widely used 
communication standards today, especially in the industrial production facilities and remote stations, 
although in the past decade it has been constantly losing the battle against the newer and more 
advanced standard - the Ethernet. So, what are the basic differences between RS232 and RS485 and 
when should you use the latter? 

• The way the signals are represented: At RS232, signals are represented by voltage levels 
with respect to ground. There is a wire for each signal, together with the ground signal (reference 
for voltage levels), so if you want to use the communcation without the hardware handshake, 
you'll need 3 wires for this: Rx (receive), Tx (transmit) and GND (ground) as common reference 
point. This also means that the difference in GND voltage levels between the devices in 
communication must be very small (if any). On the other hand, at RS485, signals are represented 
by voltage difference, which allows for much longer cable distances (with much more electrical 
noise) to be covered. 

• Number of endpoints in communication: RS232 is a single-point protocol, meaning you can 
connect only one peripheral to your PC or PIC through one RS232 link. RS485 is multipoint 
protocol, which allows multiple devices to be connected to a single signal cable. 

• Type of communication: RS232 is a full-duplex communication, meaning that both sides can 
send and receive data simultaneously. RS485 is a half-duplex communication - only one device 
can send messages at a time, while others on the net are listening. 

You should use RS485: 

• When you need your device to communicate to more than one of its "colleagues", i.e. when you 
need to have a network of devices. Up to 32 devices (in standard configuration) can be 
connected; 

• When you need to cover larger distances than those you normally can do with RS232. For RS 485 
the cable can be up to 1200 meters long, compared to max. 30 - 60 meters for RS232; 

To implement all this, RS485 uses the Master/Slave architecture. This means that one device (the 
master) controls the line, allowing other devices (slaves) to send messages only when spoken to. Master 
and slave devices interchange packets of information, each of these packets containing synchronization 
bytes, CRC byte, address byte, and the data. In Master/Slave architecture, slave can never initiate 
communication. Each slave has its unique address and receives only the packets containing that 
particular address. It is programmer's responsibility to ensure that only one device transmits data via 485 
bus at a time. 

BASIC provides a set of library routines to allow you comfortable working with RS485 system. RS485 
routines require USART module on PORTC. Pins of USART need to be attached to RS485 interface 



transceiver, such as LTC485 or similar. Pins of transceiver (Receiver Output Enable and Driver Outputs 
Enable) should be connected to PORTC, pin 2 (see the figure at end of the chapter). Note that 
address 50 is a common address for all Slave devices: packets containing address 50 will be received by 
all Slaves. The only exceptions are slaves with addresses 50 and 169, which require their particular 
address to be specified in the packet. 

The following example demonstrates use of Slave nod in RS485 Master/Slave architecture. 



program pr4 85 




dim dat as byte [ 8 ] ' 


Buffer for receiving/sending messages 


dim i as byte 




dim j as byte 




sub procedure interrupt 




if TestBit (RCSTA, OERR) 


= 1 then 


PORTD = $81 




end if 




RS485Slave Read (dat) 


' Every byte is received by 


end sub 


RS485Slave Read(dat); 




' Upon receiving a message w/o errors 


main : 


' data [4] is set to 255 


TRISB = 0 





TRISD = 0 



USART_Init (9600) 



RS485Slave_Init (160) 



SetBit(PIEl, RCIE) 



SetBit (INTCON, PEIE) 



ClearBit (PIE2, TXIE) 



SetBit (INTCON, GIE) 



PORTB = 0 



PORTD = 0 



dat[4] = 0 



dat[5] = 0 



while true 



if dat [5] then 



PORTD = $AA 



end if 



if dat [4] then 



dat [4] = 0 



j = dat [3] 



for i = 1 to j 



' Initialize usart module 



' Initialize MCU as Slave with address 160 



' Enable interrupt 



on byte received 



via USART (RS485) 



' Ensure that message received flag is 0 



' Ensure that error flag is 0 



' If there is error, set PORTD to $aa 



' If message received : 



Clear message received flag 



Number of data bytes received 



PORTB = dat [ i - 1 ] 


' Output received data bytes 


next i 




dat [0] = dat [0] + 1 


' Increment received dat[0] 


RS485Slave_Write (dat, 1) 


' Send it back to Master 


end if 




wend 




end. 
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9.6 OneWire 



This is another Master/Slave protocol, and all the cabling you need is a single wire. Because of the 
hardware configuration it uses (single pullup and open collector drivers), it allows for the slaves even to 
get their power supply from that line. Some basic characteristics of this protocol are: 

• single master system, 

• low cost, 

• low transfer rates (up to 16 kbps), 

• fairly long distances (up to 300 meters), 

• small data transfer packages. 

Each 1-Wire device also has a unique 64-bit registration number (8-bit device type, 48-bit serial number 
and 8-bit CRC), so multiple slaves can co-exist on the same bus. 

In low-level part of this protocol, each bit is transferred by the master by pulling the line low. Whether 
the bit is zero or one depends on how long the line is kept low, longer time for the "0" and shorter for the 
"1". When the master is reading a bit from a slave it pulls the line low for a minimum amount of time. 
The slave pulls the line low as well and after the master releases the line the slave keeps it low for the 
time required for the bit type (same as for the master). 

The higher level protocol, also known as 1-wire Bus System, allows the master to enumerate devices on 
the bus. The master sends a command for all slaves to respond with their registration number. As each 
bit is being read, the master sends the value of the bit it is interested in. The slaves that match continue 
while the slaves that don't match stop outputting. By the time the entire configuration code is read, one 
unique code has been read identifying one device. The command is repeated until no new devices 
respond and all devices on the bus have been identified. 

This code demonstrates use of low-level 1-wire library procedures and functions in BASIC. The example 
reads the temperature using DS1820 connected to PORTA, pin 5. Be sure to set the Fosc (oscillator 
frequency) appropriately in your project. 



program onewire_test 



dim i as byte 
dim j 1 as byte 
dim j 2 as byte 
dim porl as byte 
dim por2 as byte 



dim text as char [20] 






main : 






text = "Temperature:' 






PORTB = 0 




' initialize PORTB to 0 


PORTA = 2 55 




' initialize PORTA to 255 


TRISB = 0 




' PORTB is output 


TRISA = 255 




' PORTA is input 


LCD Init (PORTB) 






LCD Cmd(LCD CURSOR OFF) 






LCD Out (1, 1, text) 






do 






OW Reset (PORTA, 5) 




' 1-wire reset signal 


OW Write (PORTA, 5, 


$CC) 


' issue command to DS1820 


OW Write (PORTA, 5, 


$44) 


' issue command to DS1820 


Delay ms (120) 






i = OW Reset (PORTA, 


5) 




OW Write (PORTA, 5, 


$CC) 


' issue command to DS1820 


OW Write (PORTA, 5, 


SBE) 


' issue command to DS1820 



Delay_ms (1000) 






jl = OW Read (PORTA, 


5) 


' get result 


j2 = OW Read (PORTA, 


5) 


' get result 


jl = jl » 1 




' assuming the temp. >= OC 


ByteToStr ( j 1, text) 




' convert jl to text 


LCD_Out(2, 8, text) 




' print text 


LCD_Chr(2, 10, 223) 




' degree character (°) 


LCD Chr(2, 11, "C") 






Delay_ms (500) 






loop until false 




' endless loop 


end. 
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9.7 CAN & CANSPI 



9.7.1 CAN 



CAN stands for the "Controller Area Network" and, as its name implies, it addresses the need to connect 
the controllers (or MCUs) into network in a single area. This "area" can vary from couple of square 
meters and up to 70,000 square meters and more. 



CAN is a serial bus standard developed to replace the RS485, and, although quite different from the 
RS485, from user's point of view it can be considered as the "new and improved" RS485. It is designed to 
be fast, highly noise-resistant and practically error-proof which makes it perhaps the most complete, 
elaborate, and sophisticated communication standard that is applied on PIC MCUs. All this doesn't come 
cheaply, meaning it doesn't pay off using it for distances less than 30-40 meters unless you need some 
(very) high data throughput. Remember, each of the communication standards, protocols and devices 
described in this chapter has its own scope of applications! 



CAN was originally created by the BOSCH company in the early 80's for automotive electronics, to allow 
for various car/truck/bus electronic systems (such as ABS, Electronic Power Control, AquaStop, 
GPS/navigation, data display system, etc) to exchange data over (single) serial bus, i.e. to form a 
network of devices within the vehicle. It soon proved its value, expanding itself into other areas, such as 
HVAC, elevators and Building Automation systems. Its price and transfer rate characteristics put the CAN 
in between the RS485 (older, slower, and by far cheaper) and the Ehternet (newer, faster, and more 
complex/expensive), and that's also where its scope of applications stands. 

CAN is a very robust protocol that has error detection and signalling, self-checking and fault 
confinement. Faulty CAN data and remote frames are re-transmitted automatically, just like at Ethernet. 

Data transfer rates vary from up to 1 Mbit/s at network lengths below 40 m to 250 kbit/s at 250 m 
cables, and can go even lower at greater network distances, downto 200 kbit/s, which is the minimum 
bitrate defined by the standard. Cables used are shielded twisted pairs, and maximum cable length is 
1000 m. 

CAN supports two message formats: 

• Standard format, with 11 identifier bits, and 

• Extended format, with 29 identifier bits 

The protocol itself is standardized in ISO 11898-1 (2003). Every CAN solution must implement the 
standard format and may accept the extended format. 

Here, all devices are connected to a single shared bus and they are all allowed to start a transmission 
(whenever they want to), unlike at RS485. Therefore, if two or more devices start transmitting 
simultaneously, there must be some arbitration scheme involved to decide which one will be granted 
permission to continue transmitting. This mechanism is called the Carrier Sense Multiple Access / 
Collision Avoidance (CSMA/CA) scheme. 

The example that follows is a simple demonstration of working with the CAN system through BASIC 
programming language. The CAN device is first initialized, then the data is intermittently read, 
incremented and written back. The PIC that is used for this example must have the CAN module built-in, 
e.g. you could use the P18F448 or any other PIC MCU from P18Fxx8 family. Furthermore, you need to 
have a chip that performs signal conditionning for CAN bus (or CAN transceiver) to boost up voltage 
levels and make level transition cleaner and less noisy, and for that purpose we used the MCP2551 IC. 



program cantest 



dim aa as byte 
dim aal as byte 
dim lenn as byte 



dim aa2 as byte 



dim data as byte [ 8 ] 



dim id as longint 



dim zr as byte 



dim cont as byte 



dim oldstate as byte 



sub function TestTaster as byte 



result = true 



if Button (PORTB, 0, 1, 0) then 



oldstate = 255 



end if 



if oldstate and Button (PORTB, 0, 1, 1) then 



result = false 



oldstate = 0 



end if 



end sub 



main : 



TRISB.O = 1 ' Pin RBO is input 



PORTC = 0 



TRISC = 0 



PORTD = 0 



TRISD = 0 



aa =0 



aal = 0 



aa2 = 0 



aal = CAN TX PRIORITY 0 and ' Form value to be used 



CAN_TX_XTD_FRAME and ' with CANSendMessage 



CAN TX NO RTR FRAME 



aa = CAN CONFIG SAMPLE THRICE and ' Form value to be used 



CAN CONFIG PHSEG2 PRG ON and ' with CANInitialize 



CAN CONFIG STD MSG and 



CAN CONFIG DBL BUFFER ON and 



CAN CONFIG VALID XTD MSG and 



CAN CONFIG LINE FILTER OFF 



cont = true ' Upon signal change on RBO pin 



while cont ' from logical 0 to 1 



proceed with program 



cont = TestTaster ' execution 



wend 



data[0] = 0 



CANInitialize ( 1 , 1 , 3 , 3 , 1 , aa) ' Initialize CAN 



CANSetOperationMode (CAN_MODE_CONFIG, TRUE) ' Set CONFIGURATION mode 



ID = -1 



CANSetMask (CAN MASK Bl, ID, CAN_CONFIG_XTD_MSG) ' Set all maskl bits to ones 



CANSetMask (CAN_MASK_B2 , ID, CAN_CONFIG_XTD_MSG) ' Set all mask2 bits to ones 



CANSetFilter (CAN FILTER Bl Fl, 3, CAN_CONFIG_XTD_MSG) ' Set id of filter Bl Fl to 3 



CANSetOperationMode (CAN_MODE_NORMAL, TRUE) ' Set NORMAL mode 



PORTD = $FF 



id = 12111 



CANWrite(id, data, 1, aal) ' Send message via CAN 



while true 



oldstate = 0 



zr = CANRead(id, Data, lenn, aa2) 



if (id = 3) and zr then 



PORTD = $AA 



PORTC = data[0] 



' Output data at PORTC 



data [0] = data [0] +1 



id = 12111 



CANWrite(id, data, 1, aal) ' Send incremented data back 



if lenn = 2 then 



' If message contains two data as bytes 



PORTD = data[l] 



output second as byte at PORTD 



end if 



end if 



wend 



end. 
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9.7.2 CANSPI 



Working with CAN is nice, but what about those PICs that do not have the CAN module? The BASIC 
solution for them is the CANSPI, actual CAN-over-SPI module library. Each routine of CAN library has its 
CANSPI counterpart with identical syntax. This library provides us with a fictive external CAN module that 
can be communicated with through the SPI. 

In example that follows we used the MCP2510 CAN controller. For more information consult the previous 
entry and example. Please note that the effective communication speed now depends on the SPI, and is 
certainly slower than the "real" CAN. 



program CANSPI 
dim aa as byte 
dim aal as byte 
dim lenn as byte 
dim aa2 as byte 
dim data as byte [ 8 ] 



dim id as longint 
dim zr as byte 



main : 



TRISB = 0 



SPI init ' Must be performed before any other activity 



TRISC.2 = 0 ' This pin is connected to Reset pin of MCP2510 



P0RTC.2 = 0 ' Keep MCP2510 in reset state 



PORTC.O = 1 ' Make sure that MCP2510 is not selected 



TRISC.O = 0 ' Make RCO output 



PORTD = 0 



TRISD = 0 ' PORTD is output 



aa = 0 



aal = 0 



aa2 = 0 



aa = CAN CONFIG SAMPLE THRICE and 



CAN CONFIG PHSEG2 PRG ON and 



CAN CONFIG STD MSG and 



CAN CONFIG DBL BUFFER ON and 



CAN_CONFTG_VALID_XTD_MSG ' Prepare flags for CANSPIinitialize proced 



P0RTC.2 = 1 ' Activate MCP2510 chip 



aal = CAN TX PRIORITY BITS and 



CAN TX FRAME BIT and 



CAN_TX_RTR BIT ' Prepare flags for CANSPIwrite function 



CANSPIinitialize ( 1 , 2 , 3 , 3 , 1 , aa) ' Initialize MCP2510 



CANSPISetOperationMode (CAN_MODE_CONFIG, true) ' Set configuration mode 



ID = -1 



CANSPISetMask (CAN_MASK_B1, id, CAN_CONFIG_XTD_MSG) 



' bring all maskl bits to ones 



CANSPISetMask (CAN_MASK_B2, 0 , CAN_CONFIG_XTD_MSG) 



' bring all mask2 bits to ones 



CANSPISetFilter (CAN_FILTER_B1_F1 , 12 1 1 1 , CAN_CONFIG_XTD_MSG) 



set filter bl fl id to 12111 



CANSPISetOperationMode (CAN_MODE_NORMAL, true) 



' get back to Normal mode 



while true 



zr = CANSPIRead (id, Data, lenn, aa2) 



if (id = 12111) and zr then 



PORTD = $AA 



PORTB = data[0] 



data[0] = data[0] + 1 



id = 3 



Delay_ms (10) 



CANSPIWrite (id, data, 1, aal) 



if lenn = 2 then 



PORTD = data[l] 



end if 



end if 



wend 



end. 
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Appendix A: mikroBasic IDE 



• Introduction 



• A,l Installation of mikroBasic 

• A, 2 First Contact with mikroBasic 

• A, 3 Creating First Project 



Introduction 

As already stated, any text editor that can save program file as pure ASCII text (without special symbols 
for formatting) can be used for writing your BASIC code. Still, there is no need to do it "by hand" — there 
are specialized environments, such as mikroBasic, that take care of the code syntax, free the memory 
and provide all the necessary tools for writing a program. 

mikroBasic is a Windows-based Integrated Development Environment, and is much more than just BASIC 
compiler for PIC MCUs. With mikroBasic, you can: 

• Create BASIC source code using the built-in Code Editor, 

• Compile and link your source code, 

• Inspect program flow and debug executable logic with Debugger, 

• Monitor variables in Watch Window, 

• Get error reports, 

• Get detailed statistics - how compiled code utilizes PIC MCU memory, hex map, charts, and 
more... 

mikroBasic IDE includes highly adaptable Code Editor, fashioned to satisfy needs of both novice users and 
experienced programmers. Syntax Highlighting, Code Templates, Code & Parameter Assistant, Auto 
Correct for common typos, and other features provide comfortable environment for writing a program. 

In combination with comprehensive help, integrated tools, extensive libraries, and Code Explorer which 
allows you to easily monitor program items, all the necessary tools are at hand. 

A. 1 1nstallation of mikroBasic 



mikroBasic is simple to install. Just start the Setup file and follow the installation steps. 



Step 1 



€» mikroBasic Setup 




an 



Welcome to the mikroBasic Setup 
Wizard 



This wizard i 
mikroBasic. 



I guide you through the installation of 



It is recommended that you close all other applications 
before starting 5etup, This will make it possible to update 
relevant system files without having to reboot your 
computer. 

Click Next to continue. 



Next > 



Cancel 



First you will be welcomed by the following screen. Click on next to continue. 



Step 2 



§ mikroBasic Setup 



License Agreement 

Please review the license terms before installing mikroBasic. 



eh 



Press Page Down to see the rest of the agreement. 



MIKROELEKTRONIKA ASSOCIATES LICENSE STATEMENT 
AND LIMITED WARRANTY 



A l 



IMPORTANT - READ CAREFULLY 

This license statement and limited warranty constitutes a legal agreement ("License 
Agreement") between you (either as an individual or a single entity) and MikroElektronika 
("MikroElektronika Associates") for the software product ("Software") identified above, 
including any software, media, and accompanying on-line or printed documentation. 

RV TNSTAI I TNG. COPYING. OR OTHFRWTSF I ISTPJG THF SOFTWARF. VOI I AGRFF TO RF V 

If you accept the terms of the agreement, select the first option below. You must accept the 
agreement to install mikroBasic. Click Next to continue. 



0 1 accept the terms in the License Agreement 

O I do not accept the terms in the License Agreement 

mikroBasic compiler VI . 1 1 



< Back 



Next > 



Cancel 



You will be asked to review the License Agreement before installing mikroBasic. If you understand and 
accept the terms in the agreement, select "I accept the terms..." and click "Next" to proceed with the 
installation. 



Step 3 



mikroBasic Setup 



Choose Components 

Choose which features of mikroBasic you want to install. 



QdiB 




Check the components you want to install and uncheck the components you don't want to 
install, Click Next to continue. 



Select components to install: 



5pace required: 9.1MB 



Compiler 



Help Files 
0 examples 



Description 

Hover your mouse over 
a component to see its 
description, 



mikroBasic compiler VI , 1 1 



< Back 



Next > 



Cancel 



Select the components you would like to install. Examples included with mikroBasic are optional, but we 
higly recommend installing them. Without taking much space on hard disk, the included set of pracical 
examples can be highly useful when developing applications. Also, beginners might find it very hepful. 



Step 4 



% mikroBasic Setup 


□ 


n 


X 


Choose Install Location 

Choose the folder in which to install mikroBasic. 




I 



5etup will install mikroBasic in the following folder. To install in a different folder, click Browse 
and select another folder, Click Install to start the installation, 



Destination Folder 



C:\Prograrin Files\MikroelekJtronika\mikj'oBasic 



Browse, 



5pace required: 9,1MB 
Space available: 5,3GB 

mikroBasic compiler VI , 1 1 - 



< Back 



Install 



Cancel 



Choose the location where you want mikroBasic to be installed. 



Step 5 



mikroBasic Setup 




Installing 




Please wait while mikroBasic is being installed. 





Extract: P18F8585.pbas... 100% 



Show details 




Installation process itself takes less than a minute. 



Step 6 



mikroBasic Setup 



yiliB 




Completing the mikro Basic Setup 
Wizard 

mikroBasic has been installed on your computer. 
Click Finish to close this wizard. 



< Back i Finish 



Cancel 



mikroBasic has been installed on your computer. Click "Finish" to confirm. 



A.2 First Contact with mikroBasic 



Upon starting mikroBasic for the first time, simple project "LED_Blinking" will be automatically started to 
help you to get to know IDE more quickly. You can compile the code (CTRL + F9), modify it, toy with 
Debugger or check the Statistics. 
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As with any modern environment, you may customize layout of mikroBasic to best suit your needs 
toolbars are fully dockable and your arrangement of windows is saved upon exit. 



By default, the largest part of the screen is taken by Code Editor which contains the program code. This 
is the advanced text editor where you will be writing your programs. It features Syntax Highlighting to 
help you differentiate code elements. Try typing one of BASIC'S keywords and watch it go bold, or type 
an aposhtophe to see the comments go italic and change color. 

Code Editor features many other advanced features such as Code & Parameter Assistants, Auto Correct 
for common typos, Code Templates, etc. 



Code Editor 
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If you had no previous experience with advanced IDEs, you may wonder what Code and Parameter 
Assistants do. These are utilities which facilitate the code writing. For example, if you type first few letter 
of a word in Code Editor and then press CTRL+SPACE, all valid identifiers matching the letters you typed 
will be prompted to you in a floating panel. Now you can keep typing to narrow the choice, or you can 
select one from the list using keyboard arrows and Enter. 

You don't have to memorize the exact order or type of the routine parameters. Type CTRL+SHIFT+SPACE 
to activate the Parameter Assistant which will guide you in filling the appropriate parameters. This feature 
is automatically invoked upon opening a parenthesis. 

To the left of the Code Editor, you will see a treeview of declared program elements. This is the Code 
Explorer which allows you to monitor variables, constants, routines, etc. Double click the element to jump 
to its declaration in code. You can click tabs over Code Explorer to change view to Keyboard shortcut 
browser for a list of all IDE shortcuts or to Quick Help browser with complete list of available built-in and 
library routines. 

For setting other IDE features, click Tools > Options. In the Options window you can customize the look 
and feel of mikroBasic, enter your own list of recognized typos, write your own templates, etc. 

If you get stuck at any point, consult the included help files. You can get help on Fl, by right-clicking a 
specific word in code, or from Quick Help tab in Code Explorer. Help files are syntax and context 
sensitive. 

A.3 Creating First Project 

We will create a simple project similar to the included LED_Blinking, but we'll start from scratch. Before 
we do, close any open files in Code Editor by clicking on File > Close. 



Step 1 



From a drop-down menu, select: Project > New Project, or click New Project icon 
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Step 2 



Fill the New Project Wizard dialog with correct values to set up your new project. 

• Select a device for your project from the drop-down menu 

• Set configuration bits (Device Flags) by clicking Default push-button. 

• Select Device Clock by entering appropriate value in edit box. 

• Enter a name for your new project 

• Enter project description edit box for closer information about your project 

• Enter project path 



e Project Wizard 



Project Name: 


MyProject 






Project Path: 






_J 










Project Description: 








Device Name: 


P1GF877A 







Device Flags: 



CONFIG = ££007; 



J_CP_ALL = £ 1FFF ; 

□ _CP_0FF = ? 3FFF; 
_DEBUG_OFF = £ 3FFF ; 

□ _DEBUG_OH = £37FF; 

□ _WPT_OFF = £ 3FFF ; 

□ _WPT_2S6 = £ 3DFF ; 

□ _WRT_1 FOURTH = £ 3BFF ; 

□ _WRT_HALF = ?39FF; 

□ _CPD_OFF = £ 3FFF ; 

□ _CPD_ON = ? 3EFF; 
I LVP ON = ? 3FFF ; 



Click the checkbox on the left 
to select CONFIG word. 

Default settings are as follows: 
High Speed Oscillator (HS)- enabled 
Watch Dog Timer (WDTJ- disabled 
Low Voltage Programming [LVP)- disabled 



"%f\ Default 



Clear All 



Device Clock: 1 04. 00000000 



MHz 



OK 



Cancel 



After you have set up your project, click OK. mikroBasic will create project for you and automatically 
open the program file in Code Editor. Now we can write the source code. 



Step 3 



Upon creating a new project, Code Editor will display an empty program file, named same as your 
project. This is shown in the following figure. 
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Now we are about to write the code for this simple example. We want to make LED diode blink once per 
second. Assuming the configuration given in the following figure, LED diodes are connected to PIC16F877 
PORTB pins (it can be any other PIC that has PORTB). 
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In this configuration, LED will emit light when voltage on pin is high (5V), and will be off when voltage on 
pin is low (0V). We have to designate PORTD as output, and change its value every second. Listing of the 
program is given below. Once you are comfortable with each line, feel free to experiment with it and 
improve the code. 



program My LED 






main : 






TRISB = 0 


' PORTB is output 




eloop : 






PORTB = SFF 


' Turn on diodes on 


PORTB 


Delay_ms (1000) 


' Wait 1 second 




PORTB = 0 


' Turn of diodes on 


PORTB 


Delay_ms (1000) 


' Wait 1 second 




goto eloop 


' Stay in loop 




end. 







Step 4 



Before compiling, it is recommended to save your project (menu choice File > Save All). Now you can 
compile your code by clicking CTRL+F9, or by selecting menu Run > Compile, or by clicking the Compile 
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mikroBasic will generate list and assembly file, and a hex file which can be used to program PIC MCU. But 
before trying out our program on PIC, let's test it with the Debugger. 



Step 5 



After successful compiling, we can use mikroBasic Debugger to check our program behavior before we 
feed it to the device (PIC16F877 or other). For a simple program such as this, simulation is not really 
necessary, but it is a requirement for more complex projects. 



To start the Debugger, select Run > Debug, or click the Debug icon 



, or simply hit F9. 
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Upon starting the Debugger, Watch Window appears, and the active line in Code Editor marks the 
instruction to be executed next. We will set the breakpoint at line 9 by positioning the cursor to that line 
and toggling the breakpoint (Run > Toggle Breakpoint or F5). See the image below: 
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We will use the Step Over option (Run > Step Over or F8) to execute the current program line. Now, 
you can see the changes in variables, SFR registers, etc, in the Watch Window - items that have changed 
are marked red, as shown in the image below. 
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We could have used Run/Pause (F6) option to execute all the instructions between the active line and the 
breakpoint (Run > Run/Pause Debugger). 



Step 6 



Now we can use our hex file and feed it to the device (PIC16F877 or other). In order to do so, hex file 
must be loaded in programmer (PIC Flash by mikroElektronika or other). 

For advanced users: 

You can set any configuration for PIC MCUs config word(s). Set configuration bits (Device Flags) by 
clicking appropriate check boxes. 

If you use internal PLL (Phase Locked Loop), device clock equals 4 x oscillator clock (be sure that 
appropriate value is in edit box ). 



